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FOREWORD 

ASTOP  was  originally  developed  in  1970  under  Contract  NAS5-11193  for 
the  NASA  Goddard  Space  Flight  Center.  The  development  work  was  sponsored 
by  Mr.  Kenneth  I.  Duck.  Principal  contributors  to  the  program,  in  addition  to 
this  author,  were  Samuel  Pines  and  Henry  Wolf  of  Analytical  Mechanics  Associates, 
Inc. 

This  documentation  was  prepared  under  Contract  N \S8-29945  for  the  NASA 
George  C.  Marshall  Space  Flight  Center  under  the  direction  of  Mr.  Reynolds 
Duncan. 

The  contributions  of  all  of  these  individuals  are  gratefully  acknowledged. 
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ABSTRACT 


ASTOP,  an  Arbitrary  Space  Trajectory  Optimization  Program,  is  designed 
to  generate  optimum  low-thrust  trajectories  in  an  N-body  field  while  satisfying 
selected  hardware  and  operational  constraints.  The  approach  consists  of  dividing 
the  trajectory  into  a number  of  segments  or  arcs  over  which  the  control  is  held 
constant.  This  constant  control  over  each  arc  is  optimized  using  a parameter 
optimization  scheme  based  on  gradient  techniques.  A modified  Encke  formulation 
of  the  equations  of  motion  is  employed.  The  program  provides  a wide  range  of 
constraint,  end  conditions,  and  performance  index  options.  An  equally  important 
feature  is  that  the  basic  approach  is  conducive  to  future  expansion  of  feature?  such 
as  the  incorporation  of  new  constraints  and  the  addition  of  new  end  conditions. 


PRECEDING  PAGE  BLANK  NOT  FILMED 


TABLE  OF  CONTENTS 


Page 

FOREWORD Hi 

ABSTRACT v 

I.  INTRODUCTION 1 

n.  PROGRAM  FORMULATION 5 

Equations  of  Motion 5 

Propulsion  System  Characteristics 8 

Spacecraft  Design  Considerations 10 

Flight  Mode  Options 11 

A.  Unconstrained  Mode 12 

B.  Constrained  Mode 13 

Optimization  Parameters 16 

Initial  Conditions  17 

Trajectory  Integration 20 

Partial  Derivative  Matrix 22 

Parameter  Optimization  and  the  Boundary  Value  Problem 22 

Planetary  Ephemerides 23 

III.  PROGRAM  INPUTS 25 

Namelist  Input  Feature  25 

Input  Variable  Descriptions 26 

Input  Variable  Default  Values 40 

IV.  PROGRAM  OUTPUT 41 

Standard  Printout 41 

Information  and  Error  Messages 44 

V.  PROGRAM  STRUCTURE 53 

Subroutine  Calling  Sequence 55 

Subroutine  Cross  Reference  Table 56 

Common  Cross  Reference  Table  57 

Common  Variable  Cross  Reference  Tables 58 


PRECEDING  PAGE  BLANK  NOT  FILMED 
vll 


VI, 


SUBROUTINE  DESCRIPTIONS 


mi 

101 


AMAINT  105 

AMAL 119 

CONTRL  123 

DCUBIC  143 

DERIV  147 

DETDT 165 

DIAG1  171 

ELCO  197 

EPH 209 

EPHEM 223 

FINDXB 231 

FNMAT  237 

FNPRNT 275 

GENMA 279 

INIT  305 

INPUT 311 

INT 341 

ITMAT 347 

LAMBRT 353 

MAIN 357 

MIIP1 361 

MINMX3 375 

MODIF 401 

MTMT 405 

MTVT 409 

PDATE 413 

PM  PR  NT 417 

RADII 421 

RECT 425 

REMTIM 435 

SAMM 439 

SETI 455 

SIMEQ 483 

SOLENG 491 

SUBFG 507 

TBDP 515 

TRAJL 523 

XYZ 533 

Listing  of  BLOCK  DATA 537 


PRECEDING  PAGE  BLANK  NOT  FILMED 

lx 


Vn.  PROGRAM  EXECUTION 

Machine  Requirements  . 
Deck  Set-up 

Vin.  EXAMPLE  CASE 


£age 

539 

C39 

540 

541 


PRECEDING  PAGE  BLANK  NOT  FILMED 


xl 


I. 


INTRODUCTION 


Over  the  past  several  years  there  have  been  a limited  number  of  attempts 
to  develop  a low-thrust,  N-body  trajectory  optimization  program.  Most,  if  not  all, 
of  these  have  been  calculus  of  variations  programs  which  basically  differ  from  the 
widely  used  two-body  program  formulations  only  in  the  number  of  attracting  bodies 
included  in  the  graviat  tonal  field  simulation.  That  is  to  say,  there  has  been  little 
or  no  concerted  attempt  to  Incorporate  more  realistic  system  and  subsystem  simula- 
tions and/or  hardware  and  operational  constraints  in  the  N-body  formulations. 

In  fact,  the  step  from  two-body  to  N-body  has  been  a formidable  one  and  has  not 
as  yet  been  successfully  completed.  The  probT  m appears  to  be  due  to  the  high 
non-linearities  existing  in  the  proximity  of  a planet  which  cause  extreme  convergence 
difficulties  In  the  solution  of  the  boundary  value  problem.  And,  of  course,  introducing 
constraints  and  increasing  the  complexity  of  the  models  will  only  serve  to  magnify 
this  problem. 

In  ASTOP  a different  approach  to  the  development  of  a low- thrust,  N-body 
trajectory  optimization  program  is  employed.  The  underlying  principle  is  that  the 
trajectory  is  divided  into  a series  of  segments  over  which  the  control  is  held  con- 
stant. Thus,  over  each  segment  (or  arc),  the  control  is  represented  as  a vector 
of  parameters  rather  than  a set  of  time-varying  functions.  Consequently,  the 
optimization  problem  is  no  longer  one  of  the  calculus  of  variations,  but  instead  is 
a parameter  optimization  problem  for  which  a variety  of  gradient  techniques  have 
been  developed  and  successfully  employed.  An  extremely  important  side  benefit 
of  this  approach  is  that  constraints  may  be  added  and  models  made  more  complex 
without  a great  amount  of  re -programming. 

The  basic  philosophy  upon  which  ASTOP  is  built  is  that  the  performance 
that  may  be  achieved  by  fully  optimizing  a trajectory  subject  to  specified  constraints 
Is  generally  insensitive  to  the  control  variables  in  the  vicinity  of  the  optimum. 
Pursuing  this  thought,  one  might  concede  that  a slowly  varying  control  variable 
might  be  replaced  over  a time  arc  by  a constant  value  with  only  a small  loss  in 
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performance  and,  by  choosing  a sufficiently  small  time  Interval,  even  fairly  large 
control  variable  rates  might  be  accomodated  with  small  performance  penalties. 

The  basic  premise  of  AST'OP  is  that,  for  the  low  thrust  Interplanetary  missions  of 
current  Interest,  the  number  of  constant  control  arcs  which  are  required  to  yield  a 
performance  near  that  of  the  variational  optimum  Is  quite  small,  possibly  on  the 
order  of  five  or  six.  When  one  further  considers  the  complexity  of  the  hardware 
required  to  continually  vary  the  thrust  direction  relative  to  the  spacecraft,  the 
simplicity  of  the  approximate  optimal  constant  control  arcs  becomes  Increasingly 
more  interesting. 

ASTOP  is  designed  such  that  a complete  mission  trajectory  Is  comprised  of  a 
series  of  constant  control  arcs.  The  number  of  arcs  and  their  durations  are  Input. 

The  spacecraft  orientation  angles  are  the  control  parameters  and,  along  with  the  arc 
end  times,  certain  propulsion  system  and  spacecraft  design  parameters,  and  selected 
initial  conditions,  are  available  for  optimization.  The  spacecraft  design  assumes  that 
the  solar  arrays  (If  any)  are  fixed  relative  to  the  thrust  vector;  consequently,  a speci- 
fied spacecraft  orientation  affects  the  performance  fn  three  ways:  (1)  the  direction  of 
the  thrust  vector;  (2)  the  direction  and  magnitude  of  the  solar  pressure;  and  (3)  the 
magnitude  of  the  power  generated  due  to  the  Incidence  angle  of  the  sun’s  rays  on  the 
solar  arrays. 

Operational  constraints  are  provided  through  an  option  which  permits  one  to 
force  the  spacecraft  orientation  to  follow  a specified  vector.  This  constraint  may  be 
employed  to  satisfy  a requirement  that  an  antenna  point  toward  the  Earth  or  that  a 
sensor  point  toward  a specified  star  or  the  sun.  This  feature  is  termed  the  Constrained 
Mode.  There  are  two  primary  hardware  constraints  incorporated  In  the  program.  One 
is  represented  by  the  fact  that  the  orientation  of  the  arrays  Is  expressly  related  to 
spacecraft  orientation  and,  therefore,  to  thrust  direction.  This,  of  course,  couples 
the  effects  of  choice  of  thrust  direction  and  the  power  generated  as  a function  of  array 
planform  area  exposed  to  the  sun.  The  second  hardware  constraint  is  the  option  of 
Imposing  the  condition  that  power  input  to  a thruster  be  held  constant  even  though  the 
power  generated  by  the  powerplant  may  be  variable.  This  is  accomplished  by  assuming 
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that  Individual  thrusters  are  turned  off  as  needed  and  that  the  fraction  of  a power  unit 
left  over  Is  simply  radiated  In  the  form  of  heat. 

The  program  Is  designed  such  that  thrusting  Is  not  permitted  during  the  first 
arc  following  departure  of  the  launch  parking  orbit.  Solar  pressure  forces  are  also 
neglected  during  this  arc;  consequently,  the  spacecraft  orientation  has  no  effect  on 
the  motion  and  no  provldlons  are  made  for  orientation  angle  Inputs  on  this  first  arc. 
The  duration  of  the  arc  Is  Input  and  may  be  made  as  long  or  short  as  desired. 

The  program  will  presently  accomodate  a maximum  of  13  arcs,  Including 
the  first  In  which  no  thrust  is  permitted.  The  maximum  number  of  Independent  para- 
meters presently  is  19  while  *he  maximum  number  of  dependent  parameters  Is  30. 
These  limitations  may  be  extended  in  the  future  by  Increasing  the  dimensions  of 
certain  arrays. 
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II. 


PROGRAM  FORMULATION 


Equations  of  Motion.  The  equations  of  motion  of  the  spacecraft  In  the  gravita- 
tional field  of  n attracting  bodies  and  subject  to  other  perturbing  accelerations  such 
as  thrust  and  radiation  pressure,  are  given  by,  * 


..  * vl 

Rv=-  .)  "t  ~+  W • « 

1-1  rvl 

• • 

where  Ry  Is  the  total  acceleration  acting  on  the  vehicle,  /z  Is  the  gravitational 
constant  of  the  l^“  attracting  body,  Ry^  Is  the  position  of  the  vehicle  relative  to 
the  body,  ry^  = |RyJ,  and  A and  Agf  represents  the  non-gravltatlonal 
perturbing  acceleration  due  to  thrust  and  solar  pressure,  respectively.  These 
equations  are  put  Into  observable  form  by  referring  them  to  a reference  body  c. 

The  equations  of  motion  of  the  reference  body  are: 


(2) 


where  r^  = Ir^  | . Subtraction  of  Equation  (2)  from  Equation  (1)  results  In  the 
equations  of  motion  of  the  vehicle  with  respect  to  the  reference  body  c. 

R 21  R_ , R 


vc 


_ r | . _ 

-“o 


vc 


1=1 

l/c 


sr 


(3) 


vl 


cl 


with  ryc  = I Ryc  I • This  permits  uniform  computation  of  the  perturbations,  re- 
gardless of  reference  origin. 


If  Equation  (3)  Is  Integrated  directly  by  some  numerical  scheme,  there  results, 
after  a number  of  step-by-step  Integrations,  an  accumulation  of  error  which  leads  to 
Inaccurate  results.  To  avoid  this  loss  In  precision,  It  Is  convenient  to  write  Equation 
(3)  tn  the  form: 

*In  this  section,  upper  case  symbols  commonly  denote  dimensioned  vectors,  lower 
case  symbols  with  an  over  bar  denote  unit  vectors,  and  other  lower  case  symbols 
denote  scalars. 
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R = R,  + £ . 

vc  k 

The  velocity  and  displacement  vectors  can  be  written  as: 

• . ; 

R * R,  + i , 

vc  k 

R =R,  * £ . 
vc  k 

The  reference  body  (the  one  in  whose  sphere  of  Influence  the  vehicle  travels)  is 
ohosen  so  as  to  minimize  the  perturbat  ens. 

In  this  method  R,  is  taken  as; 
k 


V-"c 


R . R 


• • 


-v*.- 

a ■« 


Equations  (4)  constitute  the  equations  of  motion  of  the  Kepler  problem  and  are 

(i 

solved  by  subroutine  TBDP.  The  accelerations  £ are  known  as  the  Encke  perturba- 
tions and  this  formulation  of  the  equations  of  motion  is  termed  as  Encke  formulation. 

The  terms  appearing  on  the  right  hand  side  of  Equation  (5)  Involve  numerous 
R 

terms  of  the  form  r where  R and  R may  differ  only  by  small  amounts. 

O u O 

r r 

o 

A computation  scheme,  which  avoids  loss  of  prectston  due  to  the  subtraction 
of  nearly  equal  terms  and  which  also  is  correct  when  R^  is  not  small,  is  employed. 
Defining  the  variable  u as: 


•■ivl"1'41' 

ro 

where  AR  «R  -R  , then  the  difference  terms  on  the  right  hand  side  of  (5)  may  be 
0 

evaluated 
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R(u3  + 3u2  + 3u) 


The  method  presented  yields  accurate  trajectories  using  relatively  little 
computer  time.  All  significant  solar  system  bodies  may  be  Included  without  undue 
complications.  Since  the  perturbations  only  are  Integrated,  the  allowable  Integration 
Interval  Is  fairly  large  over  most  of  the  path.  Even  In  the  vicinity  of  Earth  or  another 
planet  a relatively  large  Interval  (compared  to  other  schemes)  may  be  used  without 
limiting  the  stability  and  accuracy  of  the  solutions.  The  perturbations  are  kept  small 
In  two  ways.  First,  the  two-body  orbit  Is  rectified  whenever  the  perturbations  exceed 
a specified  maximum  value  compared  to  the  corresponding  unperturbed  values.  This 
limits  error  build-up  with  respect  to  particular  reference  body.  Second,  the  reference 
body  of  the  two-body  problem  Is  changed  from  Earth,  to  sun,  to  planet  accordingly,  as 
that  reference  body  would  contribute  the  largest  perturbing  force  otherwise.  This 
method  is  referred  to  as  a modified  Encko  formulation  and  will  handle  circular  orbits 
and  zero  Inclination,  which  are  normally  singular  regions  for  the  standard  e 
formulation.  The  problem  Is  defined  In  terms  of  parameters  which  hav<  ; physical 
significance  (namely,  the  position  and  velocity  vectors)  which  are  direct  statable  to 
measurable  quantities. 

The  acceleration  due  to  the  thrust  of  the  propulsion  system  may  be  written 


for  any  propulsion  system.  Here  T represents  the  thrust  vector  and  m Is  the  mass 
of  the  spacecraft.  For  an  electric  propulsion  system,  the  power  output  Is  limited  and 
it  Is  convenient  to  write  the  thrust  acceleration  In  terms  of  parameters  more  directly 
related  to  the  propulsion  system  design.  One  such  parameter  Is  the  reference  power, 
Py,  that  is  generated  by  the  power  source.  This  Is  related  to  the  thrust  magnitude 
through  the  equation 
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f=  |t  | 


i 


2p  rj 

r 
c 

where  t}  Is  the  propulsion  system  efficiency  factor  and  c Is  the  jet  exhaust  speed. 
The  characteristics  of  the  propulsion  system  parameters  will  be  discussed  subse- 
quently. 

Considering  the  total  number  of  photons  Impinging  on  the  spacecraft  In  unit 

time,  let  us  assume  that  a ratio  c (0  sc  s 1 ) Is  absorbed  by  the  spacecraft,  and 

a 

that  the  remainder  Is  reflected  with  a reflection  angle  equal  to  the  angle  of  Incidence. 
Then,  we  may  write  the  resultant  spacecraft  acceleration  due  to  solar  radiation 
pressure,  assuming  that  the  spacecraft  may  be  approximated  as  a flat  plate  of  area 
a; 

k a 

Asr  = ~2  l*r'  ” I L2(1'°a)(V  ")"+ VrJ  • 

mr 

where  e^  Is  a unit  vector  along  the  heliocentric  position  vector,  r Is  the  solar 

distance,  n Is  a unit  vector  normal  to  the  assumed  flat  p’ate  representing  the 

spacecraft,  and  k Is  a solar  constant  representing  the  solar  radiation  pressure 
8 

on  a flat  plate  normal  to  the  sun  line  at  unit  distance  from  the  sun,  assuming  all 
photons  are  absorbed. 

Propulsion  System  Char.-vtertstlcs.  It  Is  essential  that  the  program  be  capable 

of  simulating  the  characteristics  of  cither  nuclear  or  solar  electric  propulsion 

systems.  The  mathematical  descriptions  of  the  two  types  of  propulsion  systems 

differ  primarily  In  the  representation  of  pr,  the  power  generated.  For  a nuclear 

electric  system,  p , Is  generally  assumed  to  be  constant  over  a trajectory,  while 
r 

for  a solar  electric  system,  p^  will  vary  with  the  polar  distance  and  with  the 
angle  of  incidence  of  the  sun's  rays  to  the  solar  panels.  Let  pQ  represent  the 
power  that  can  be  generated  by  the  solar  panels  at  unit  distance  from  the  sun  If 
the  panels  are  normal  to  the  sun  line,  and  let  y denote  the  ratio  of  power  available 
at  any  specific  solar  distance  and  Incidence  angle  to  that  available  at  unit  distance 
with  normal  Incidence.  Furthermore,  let  n be  the  unit  vector  normal  to  the  panels 
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with  a direction  such  that  the  solar  cells  are  facing  the  sun  providing  e • n > 0, 

r 

Then  we  may  write,  for  the  Dower  available  to  the  propulsion  system,  p 

a 

P =P  y - P 
a o x » 

where  p represents  a constant  increment  of  power  that  may  be  assigned  for 

X 

purposes  other  than  primary  propulsion,  such  as  housekeeping.  Unless  otherwise 
specified,  it  will  be  assumed  that  Pr  = The  assumed  form  of  y is 


y = d V 


where  d is  the  density  of  photons  incident  on  a unit  area  of  the  arrays  and  is  de- 


fined 


d = (er  • n )/r  , 


and  n is  related  to  n as  follows: 


- u if  e • n > 0 

a _ r r 

n 1 0 if  e • n < 0 


0 if  e * n < 0 * 
r 


The  coefficients  a^,  l = 0,  1,  — , 4,  are  input  constants.  Nuclear  electric  pro- 
pulsion is  simulated  by  setting 


y=i . 


For  either  type  of  propulsion  system,  the  jet  exhaust  speed  is  assumed  constant 
over  the  trajectory.  The  efficiency  factor  is  taken  to  be  a function  of  the  jet  exhaust 
speed  c of  the  form, 

, 2 
be 

77  2 ,2  ' 

c +d 

where  b and  d are  specified  constants.  (Note  that  d is  distinct  from  the  photon 

density  defined  above).  The  mass  flow  of  the  propulsion  system  is 

• f 

m = — . 


It  should  be  noted  that  the  acceleration  due  to  radiation  pressure  will  generally  be 
a factor  of  Interest  only  for  solar-electric  systems.  For  such  systems,  the 
assumption  that  the  spacecraft  is  a flat  plate  in  the  computation  of  the  solar  pressure 
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is  appropriate  since  the  solar  panels  comprise  the  major  portion  of  the  spacecraft 
area  exposed  to  the  sun.  The  area  a of  the  solar  panels,  which  appears  tn  the  equa- 
tion for  solar  pressure,  is  related  to  the  power  capacity  of  the  panels  through  the 
equation 

a = k p + Aa  , 

P o 

where  k is  a specified  quantity  representing  the  area  of  solar  cells  required  to 
P 

generate  a unit  of  power  at  unit  distance  from  the  sun,  and  Aa  is  a specified  constant. 

Depending  upon  the  particular  propulsion  system  hardware  involved,  it  may 
be  desirable  to  force  the  power  input  to  a thruster  to  be  constant.  Since,  for  a solar 
electric  system,  the  power  generated  will  not  be  a constant,  it  will  be  necessary  to 
modulate  the  total  power  fed  to  the  thrusters  and  to  control  the  number  of  thrusters 
in  use  at  each  instant  in  time.  To  this  end,  define  a power  increment  Ap  which 
represents  the  desired  power  level  of  each  individual  thruster.  Then  for  a given 
power  available  to  the  propulsion  system,  p , the  number  of  thrusters  that  may  be 

3. 

in  operation  is 

l = mod  (p  , Ap), 

£L 

where  mod  (a,b)  is  the  largest  integer  that  is  less  than  or  equal  to  the  quotient 
a/b.  This  means  that  a portion  of  the  power  available,  p^,  given  by 

Pd  = Pa--tAp 

must  be  discarded.  The  actual  power  used  by  the  propulsion  system  is 

Pr  = 1 Ap. 

Spacecraft  Design  Considerations.  For  reliability  reasons,  it  is  desirable 
to  fix  the  orientation  of  the  solar  panels  of  an  electrically  propelled  spacecraft  rela- 
tive to  the  central  portion  of  the  spacecraft.  Consequently,  the  normal  vector,  n, 
that  appears  in  both  the  propulsion  and  the  solar  pressure  terms  of  the  equations  of 
motion  must  be  expressed  in  a body-fixed  coordinate  Rystem.  For  this  purpose, 
introduce  the  Cartesian  frame  OIJK  which  is  fixed  in  the  spacecraft.  Relative  to 
this  system  n would  be  written 

n = cosacosj8l  + cos  a sin /Jj  + slnaK  , 

where  the  angles  Of  and  P would  be  design  parameters  that  are  specified  and  held 
constant  throughout  the  trajectory. 
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continuously  lie  within  a cone  of  specified  half-angle  about  a known  vector.  The 
orientation  of  s within  the  cone  is  arbitrary  as  is  the  roll  orientation  of  the  space- 
craft about  s. 

A.  Unconstraln' d Mode.  Let  XYZ  represent  the  inertial  frame  of  reference 
in  which  the  trajectory  computations  (heliocentric)  are  made.  We  define  the  orienta- 
tion of  the  spacecraft  in  terms  of  the  UK  axes,  relative  to  the  inertial  frame  through 
the  angles  £ , v , £ . Let  £ denote  the  nodal  angle  which  is  a rotation  about  the  Z 
axis  to  the  node  of  the  I-J  and  X-Y  planes;  u denotes  a rotation  about  the  nodal 
line  and  is  the  inclination  of  the  I-J  plane  relative  to  the  X-Y  plane;  C denotes  a 
rotation  in  the  I-J  plane  from  the  node  to  the  I-axis.  The  transformation  from  the 
XYZ  to  the  IJK  system  is 

(c£c£-s£s£ct')  (c£s£+sCc£cy)  (sCsi-0 
A (£ , v , C ) = (-sCc£-c£s£c^)  (-sCs£+cCc£cy)  (c£sv) 

(s£st')  (-c£s^)  (c  v) 

m 

where  s and  c denote  sine  and  cosine,  respectively.  Since  the  transformation  is 
orthogonal,  the  inverse  of  A(£,  u,  £)  is  equal  to  its  transpose,  facilitating  the 
transformation  from  the  UK  to  the  XYZ  system.  Thus,  the  vectors  n and  eT 
in  the  inertial  coordinate  system,  whicn  are  recnurcd  for  the  equations  of  motion, 


cos  acos  0 

- T 

n = A(£,i',C)  cosasin/8 

sin  a 


eT=A(£,  v,  C) 


where  the  superscript  T denotes  transpose.  The  choice  of  the  three  angles  at  the 
start  of  each  arc  is  completely  unconstrained;  however,  once  the  choice  Is  made, 
the  angles  are  held  constant  throughout  the  arc. 
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B.  Constrained  Mode.  A problem  of  particular  Interest  is  that  of  optimizing 
the  motion  of  the  spacecraft  subject  to  the  constraint  that  the  antenna,  which  is  fixed 
relative  to  the  spacecraft,  be  continuously  pointing  in  the  general  direction  of  the 
Earth.  Other  constrained  problems  of  interest  include  thrusting  at  a fixed  angle  to 
the  sun  line  and  thrusting  along  the  velocity  vector.  All  of  these  problems  may  be 
considered  within  the  framework  of  the  following  general  formulation. 

Consider  the  body-fixed  unit  vector  s,  given  by 

s = cos  6 cos  el  + cos  6 sin  e J + sin  6 k , 

where,  as  stated  previously,  6 and  e are  specified  angles  representing  spacecraft 
design  factors,  s is  an  arbitrary  vector  that  may  be  used  for  different  purposes  in 
different  problems.  As  an  example,  it  may  represent  the  antenna  pointing  direction. 
In  the  most  general  constrained  case,  we  require  that  the  spacecraft  be  continuously 
oriented  such  that  s lies  within  a cone  of  specified  half  angle  about  a known  unit 
vector  x(t).  This  latter  vector  is  determined  internally  in  the  program  according 
to  an  input  option  flag.  The  input  options  permit  defining  x(t)  as  the  direction 
from  the  spacecraft  to  any  planet,  the  sun,  or  a star,  or  as  the  direction  of  the  helio- 
centric velocity  vector.  The  position  of  s in  the  cone  about  x(t),  which  requires 
two  angles  for  specification,  may  be  specified  or  optimized.  Also  the  orientation  of 
the  pacecraft  about  s is  available  as  a parameter  for  optimization. 

To  determine  the  inertial  components  of  certain  body-fixed  vectors,  e.g. , 
eT  and  n,  it  is  necessary  to  define  a series  of  rigid  body  rotations  and  the  trans- 
formations associated  with  each.  To  this  end,  consider  two  arbitrary  unit  vectors 
a and  b and  suppose  a is  rotated  about  b through  an  angle  a to  a position  c. 

In  general,  c is  given  by 

c = A(b,  a)  a , 

where  A(b,  a)  is  a transformation  matrix  of  the  form 

A(6,  oc)=Ucosa  + B(l-cosa)  + Cslna, 
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with  U being  the  3x3  identity  matrix, 


and 


B = 


C = 


blbl  blb2  W 
b2bl  b2b2  b2b3 
Lb3bl  b3b2  b3b3J 


0 -b3  b2 
b3  ° -bl 
b2  bl  °. 


where  b , b , b are  the  components  of  b.  In  vector  notation,  this  general  trans- 
12  3 

formation  may  be  written 

c = cos  a a + (1  -cosa)(a  • b)b  + sino:(bxa) 


At  any  instant  in  time,  the  spacecraft  orientation  in  inertial  space  may  be 
defined  through  the  following  sequence  of  rotations.  First,  consider  the  body  axis 
system  UK  aligned  with  the  inertial  frame  such  that  the  components  of  s are  iden 
tical  in  the  body  and  the  inertial  coordinate  systems.  Then  rotate  the  IJK  system 
through  an  angle  a such  that  s is  aligned  with  x(t).  The  angle  o is  given  by 


C r = cos  * (s  • x)  (0  s cr  s n) 

and  the  rotation  is  about  a unit  vector  m which  is  normal  to  both  s and  x , l.e. , 

m = (s  x x)/sina  . 


The  transformation  for  this  rotation  is,  of  course,  A{m,  a)  for  which  the  general 
form  is  given  above.  We  now  seek  two  rotations  which  together  miquely  define  the 
location  of  s within  the  cone  about  x.  For  reasons  which  will  become  clear  subse- 
quently, we  choose  first  a rotation  about  x through  an  arbitrary  angle  0 followed 
by  a rotation  about  a vector  normal  to  x through  an  angle  The  particular  normal 
vector  about  which  this  latter  rotation  takes  place  is  entirely  arbitrary  and  we  pick, 
for  convenience,  one  which  is  easily  attainable  and  which  is  known  to  be  normal  to 
x without  checking.  This  vector  is  the  one  which  m would  occupy  after  rotating 
through  the  angle  0 about  x,  Denote  this  vector  q,  then 


and  the  transformation  matrix  for  the  third  rotation  is  A(q,  0).  This  particular 

choice  for  the  second  and  third  rotations  was  made  because  it  results  in  a single 

control  parameter,  namely  0,  through  which  the  constraint  that  s lie  within  a 

specified  cone  about  x may  be  imposed.  Letting  0 represent  the  specified 

max 

half-r  one  angle,  then  the  constraint  is  satisfied  simply  by  forcing 

0 s 0 

max 

If  the  value  of  0 to  be  used  at  a particular  time  satisfies  the  inequality  constraint, 

then  the  solution  proceeds  as  if  there  were  no  constraint.  If,  however,  the  inequality 

constraint  would  be  violated,  then  0 is  set  equal  to  0 . Denoting  as  s the 

max  l 

vector  s in  the  inertial  system,  we  then  have 

Sj  = A(q,  0)  x . 

The  final  rotation  required  is  one  about  s^  through  an  angle  0,  for  which  the 
transformation  matrix  is  A(s^,  0).  The  angle  0 defines  the  roll  orientation  of 
the  spacecraft  about  the  vector  s (or  s^),  and  is  an  independent  parameter  for 
optimization. 

The  application  of  the  above-defined  transformations  permits  one  to  obtain 

the  inertial  components  of  any  unit  vector,  say  p,  that  is  fixed  in  the  IJK  system 

and  has  the  known  components  p , p , p . Denoting  the  inertial  components  of  p 

X u O - 

as  pT  , p p then 
1 2’  3 


V 

• *■ 
P1 

1 

pI 

= AfSj,  0)  A(q,  0)  A(x,  0)  A(m,  a) 

P2 

2 

PI 

P3 

3. 

* - 

Of  course,  this  transformation  is  valid  for  both  p = n and  for  p = e^,  . 

Two  special  cases  of  the  above  formulation  for  the  constrained  mode  warrant 

mention.  The  first  Is  that  by  setting  0 equal  to  a large  number,  one  may 

max 
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effectively  run  unconstrained  trajectories  with  the  same  control  parameters  used  In 
the  constrained  mode.  The  second  is  that  s may  be  forced  to  coincide  with  x 
exactly  by  requiring  that 

0=0  = 0 . 
max 

However,  if  this  is  done,  then  0 and  9 are  not  independent  parameters  and  it  is 
convenient  to  set  0 = 0.  If  this  is  done,  then  both  A(x,  0)  and  A(q,  0)  degenerate 
to  the  identity  matrix,  and  6 is  the  only  spacecraft  orientation  angle  remaining  to  be 
optimized. 

The  angle t:  0,  0,  and  6 are  held  constant  over  each  arc  of  the  trajectory, 
although  they  are  permitted  to  vary  from  arc  to  arc.  Also  the  input  angle  0 

max 

is  held  constant  over  each  arc,  but  is  permitted  to  change  at  the  start  of  each 

arc.  This  allows  the  study  of  cases  in  which  s is  either  little  or  not  at  all  constrained 

over  some  arcs  and  very  tightly  constrained  over  other  arcs. 


Optimization  Parameters.  At  the  user's  option,  the  following  parameters 

•*> 

are  available  for  optimization. 

Initial  Conditions 


i,  O,  0)  -inclination,  longitude  of  ascending  node,  and 

argument  of  perigee  of  the  launch  parking  orbit, 

x , y , z - initial  planetocentrlc  position  components,  and 

P P P 
o *o  o 

x , y , z - initial  planetocentric  velocity  components;  or 
Po  Po  po 

t -time  at  departure  of  parking  orbit,  and 

v - speed  at  departure  of  parking  orbit 


Propulsion  system  parameters 


reference  power 


c 


jet  exhaust  speed 


Spacecraft  design  parameters 


oc,  P - direction  angles  of  solar  array  normal  vector 

6 , c “ direction  angles  of  constraint  vector  (e.  g. , antenna 

pointing  vector) 

Arc  end  times 

t^,  t2>  — , t^  - times  at  which  arcs  terminate 
Thrust  angles  (independent  set  for  each  arc) 

Unconstrained  mode 

€.  C 

Constrained  mode 

0,  0,  0 


Initial  Conditions.  The  Initial  position  and  velocity  of  the  spacecraft  at  de- 
parture of  the  launch  parlr’ng  orbit  are  direct  inputs.  These  inputs  are  in  the  form 

of  the  geocentric  ecliptic  Cartesian  coordinates  of  the  position  and  velocity  x , 
...  P® 

y , z , x , y , z . The  time  of  launch  from  the  parking  orbit  is  the  input 
po  po  po  po  po 

launch  date  t^.  Once  the  Initial  position,  velocity,  and  time  are  defined,  the  motion 
of  the  spacecraft  is  integrated  forward  along  a coasting  arc  in  the  n-body  force  field 
(ho  solar  radiation  pressure)  to  an  input  time  t , which  represents  the  time  at  which 
the  electric  propulsion  system  is  turned  on  and  solar  radiation  pressure  Is  Included 
in  the  perturbations.  Typically,  t will  be  several  hours  past  tQ.  The  Introduction 
of  the  time  interval  between  the  high-thrust  phase  and  the  starting  of  the  low-thrust 
phase  serves  two  purposes.  First,  it  Includes  in  the  simulation  a phase  that  will  be 
necessary  in  a mission  to  erect  solar  arrays  and/or  make  other  preparations,  and 
check  out  systems  before  commencing  the  Interplanetary  phase  of  the  mission. 
Secondly,  the  time  Interval  permits  the  vehicle  to  recede  from  the  proximity  of  a 
planet  which,  inherently,  is  a region  of  high  non-linearities  and  which  frequently 
cause  considerable  difficulty  in  the  trajectory  and  mission  analysis. 


Two  options  are  available  for  optimizing  the  point  of  departure  from  the 
parking  orbit.  In  one  option,  the  spacecraft  Is  assumed  to  have  a prescribed 
ephemerts  in  the  given  orbit  such  that  the  variation  of  the  launch  time  results  In 
the  variation  of  the  point  of  departure  as  defined  by  two-body  motion  In  the  parking 
orbit.  In  this  option  the  Independent  parameters  are  the  speed  at  departure  v^Q 
and  the  Initial  time  tQ.  Partial  derivatives  of  the  state  with  respect  to  these  para- 
meters are  obtained  analytically  rather  than  by  finite  differences  over  the  first  arc. 
These  partlals  are  obtained: 
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where  R , R are  the  planetocentrlc  position  and  velocity  at  departure  of  the 
po  Po 

launch  parking  orbit.  The  partlals  at  the  end  of  the  first  (two-body)  arc  are  then 


Immediately  obtained  by  multiplying  these  partlals  by  the  state  transition  matrix 
for  that  arc. 
the  equation 


for  that  arc.  The  partlals  of  the  initial  mass  mQ  are  obtained  by  differentiating 


-v  /a . 

P 2 

m = a e *o  - a„  * 
o 1 3 


where  a , a and  a are  Input  constants  describing  the  performance  capability 
12  3 

of  a specific  launch  vehicle.  The  second  option  permits  variations  In  Initial  posi- 
tion and  velocity  through  variations  In  the  circular  launch  parking  orbit  orientation 
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and  the  speed  of  departure.  As  In  the  previous  option,  the  dpparture  point  Is 
assumed  to  coincide  with  the  perlapse  of  the  departure  hyperbola.  From  the  In- 


put planetocentrlc  position  and  velocity  vectors  R^ 
momentum 


compute  the  angular 


H=R  xR  , 

Po  Po 

and  define 

h =H/ |H  | ; £ - (kxh)/sln  l , 


where  k Is  a unit  vector  along  the  North  Pole  and  l Is  the  Inclination  of  the 
parking  orbit  relative  to  the  equator.  The  unit  vector  l lies  along  the  ascending 
node  of  the  parking  orbit  on  the  equator.  The  Inclination  Is  obtained  from  the 
equation 

cos  l = h • k . 


Letting  the  Independent  parameters  for  this  option  be  the  Inclination  l,  the  longitude 
of  node  0,  the  argument  of  perigee  co,  and  the  departure  speed  v , the  desired 

P 

partlals  are  written 


ax 

ai 


= l X x 
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ax 

an 


= k x X 


t 


ax 

dco 


- h x X , 


3m  am  9m 
o _ o _ o 

ai”"  ao  aco 


where  X denotes  either  R or  R . The  partlals  with  respect  to  v remain 

po  po  p0 

the  same  as  for  the  first  option  above.  Again,  the  partlals  at  the  end  of  the  first 

arc  are  obtained  by  multiplying  the  above  by  the  state  transition  matrix. 


Trajectory  Integration.  A trajectory  Is  generated  by  numerically  integrating  ] 

M 

the  second  order  differential  equations  for  the  Encke  perturbations  £ and  the  first 

* 

order  equation  for  the  mass  flow  rate  m . The  program  is  designed  such  that  any 
perturbation  trajectories  required  by  the  differential  corrections  scheme  for  the 
evaluation  of  partial  derivatives  are  Integrated  simultaneously  with  the  nominal  tra- 
jectory. Consequently,  at  any  one  time,  the  program  may  be  integrating  either  a 
single  trial  trajectory  or  a total  of  (p  + 1)  trajectories  where  p is  the  number  of  j 

perturbation  trajectories.  The  number  p may  differ  from  arc  to  arc  as  explained 
In  the  description  of  subroutine  GENMA.  | 

i 

The  two-body  trajectory  that  serves  as  the  reference  for  the  Encke  perturba- 

! 

tion  is  evaluated  in  subroutine  TBDP.  The  same  two-body  reference  trajectory  is 
employed  for  the  nominal  and  all  associated  perturbation  trajectories,  thereby  saving 
considerable  computational  effort.  The  criteria  for  rectification  of  the  reference  tra- 
jectory is  applied  only  to  the  nominal  trajectory,  however. 

A sixth-order,  backward-difference  integrator  is  employed  in  the  program. 

The  difference  table  is  constructed  using  a fourth-order  Runge-Kutta  integrator 
with  a step  size  equal  to  one-fourth  the  standard  Interval.  After  completing  six  steps 
wtth  the  Runge-Kutta,  integration  commences  with  the  backward-difference  formulas 
for  18  additional  steps  at  the  reduced  Interval.  After  every  fourth  of  the  total  24 
steps,  the  results  are  stored  in  a separate  table  such  that,  after  the  24^  step,  a 
difference  table  is  available  for  continuation  of  the  Integration  with  the  backward- 
difference  formulas  at  the  full  step  size. 

The  Independent  variable  of  integration  used  in  ASTOP  is  the  universal 
variable,  /9.  This  variable  is  related  to  the  change  in  eccentric  along  the  two- 
body  reference  trajectory,  as  follows: 

= <E-E0)  , ^ 

where  a^  is  the  semi-major  axis,  E is  the  eccentric  anomaly  and  the  subscript  .] 

o refers  to  an  arbitrary  ep.  ch,  such  as  a rectification  point.  Through  dtfferentla-  _ 

tion,  it  is  seen  that  • 

I 
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where  M Is  the  gravitational  constant  of  the  reference  body  and  r^  Is  the 
magnitude  of  the  position  vector  on  the  two-body  reference  trajectory.  Conse- 
quently, denoting  derivatives  with  respect  to  0 with  the  prime,  the  first  and 
second  order  derivatives  of  any  variable  x with  respect  to  0 may  be  written 

x,=:x//3 , 

x"=x//82  + x’(Rk  • Rk)/rk^  , 

where  and  are  the  position  and  velocity  vectors,  respectively,  or  the 
reference  two-body  trajectory. 

It  should  be  noted  that,  In  the  discussions  throughout  this  document,  the 
terminology  "trial  trajectory"  and  "nominal  trajectory"  are  generally  synonymous 
when  referring  to  the  storage  of  trajectory  data  In  various  arrays.  Trial  trajectory 
implies  that  no  perturbation  trajectories  are  currently  being  evaluated.  Trial  tra- 
jectory data  are  stored  In  the  storage  locations  reserved  for  nominal  trajectories 
when  both  nominal  and  perturbation  trajectories  are  generated. 

As  a final  point,  It  will  be  noted  In  various  subroutine  descriptions  that 
various  arrays  will  be  referred  to  as  position  vectors  or  velocity  vectors  but  are 
actually  dimensioned  six.  The  reason  for  this  Is  that  ASTOP  frequently  requires 
the  magnitude  or  the  square  or  cube  of  the  magnitude  of  a vector.  To  avoid  re- 
computing these  quantities,  these  magnitude  related  variables  are  selectively  com- 
puted and  stored  in  a consistent  format  for  subsequent  use.  The  format  of  a typical 
six  vector  R with  components  x,  y,  z and  magnitude  r Is 

R = Lx,y,z,  r , r,  r J , 


r 

i 


!l 
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Partial  Derivative  Matrix,  The  partial  derivatives  of  the  perfoxmance  index 
and  the  end  conditions  with  respect  to  the  independent  parameters  of  the  p roblem 
are  required  for  the  parameter  optimization  and  for  the  solution  of  the  boundary  value 
problem.  For  the  most  part,  these  parttals  arc  generated  through  the  use  of  a 
differential  corrections  technique  involving  the  simultaneous  generation  of  tho 
nominal  trajecfory  and  several  perturbation  trajectories.  As  a means  of  reducing 
the  number  ot  perturbation  trajectories  required,  each  arc  is  considered  separately. 
Perturbation  trajectories  are  integrated  over  an  arc  only  for  the  perturbat  tons 
actually  in  effect  over  the  arc.  The  perturbations  include  those  imposed  through 
the  choice  of  independent  parameters  (only  those  applicable  over  the  arc)  plus  all 
state  variables.  At  the  end  of  each  arc,  the  parttals  of  the  final  state  with  respect 
to  all  perturbations  (including  the  initial  state)  are  forn.ed.  On  subsequent  arcs, 
the  parttals  with  respect  to  independent  parameters  that  were  applicable  on  pre- 
ceding arcs  are  propagated  by  successively  applying  the  state  transition  matrix 
for  each  successive  arc  to  the  partlals  matrix  of  the  preceding  arc.  A detailed 
description  of  this  process  is  given  in  the  discussion  of  subroutine  GENMA. 

After  the  matrix  for  the  final  arc  is  generated  as  above,  the  end  conditions 
are  formed  along  with  their  partlals  with  respect  to  the  final  stale.  Thus,  the  de- 
sired partial  derivative  matrix  required  by  the  iterator  is  formed  by  multiplying 
the  matrix  of  partlals  of  the  end  conditions  by  the  matrix  of  partlals  cf  the  final 
state.  The  appropriate  equations  are  given  in  the  description  of  subroutine  FNMAT. 

Parameter  Optimization  and  the  Boundary  Value  Problem.  A generalized 
Iterator,  subroutine  MINMX3,  Is  employed  to  solve  the  boundary  value  problem 
and  to  perform  direct  parameter  optimization.  This  routine  has  two  basic  modes, 
known  as  the  "select”  and  the  "optimize"  modes.  In  the  select  mode,  the  iterator 
attempts  only  to  satisfy  the  specified  end  conditions.  In  the  optimize  mode,  an 
attempt  Is  made  to  Improve  the  performance  Index  while  maintaining  satisfaction 
of  the  end  conditions.  The  transition  from  select  to  optimize  mode  Is  automatic. 

If  no  perforir  .nee  Index  Is  specified,  the  Iteration  Is  terminated  upon  successful 
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completion  of  the  select  mode;  l.e. , the  optimtze  mode  Is  never  entered.  Typically 
the  Iterator  displays  quadratic  convergence  properties  In  the  select  mode,  but  rather 
slow  convergence  rate  when  nearing  the  solution  in  the  optimize  mode.  Details  of 
the  algorithm  are  presented  In  the  discussion  of  subroutine  MINMX3. 

Planetary  Ephemerides.  Planetary  position  and  velocity  data  are  obtained 
as  a function  of  date  with  the  use  of  an  analytic  ephemeris  routine.  Planetary  orbital 
elements  are  stored  as  quadratic  functions  of  Julian  date.  The  stored  coefficients 
for  eccentricity,  inclination,  longitude  of  ascending  node  and  latitude  of  perihelion 
are  referenced  to  an  epoch  of  January  0.5,  1900,  while  the  coefficients  for  mean 
1<  >.gitude  are  referenced  to  an  epoch  of  January  0.5,  1965.  The  position  and  velocity 
vectors  are  computed  in  ecliptic  Cartesian  coordinates  in  an  Equinox  of  date  frame. 
The  computations  are  performed  in  subroutine  EPH,  and  the  equations  and  approach 
used  are  described  in  the  discussion  of  that  routine. 

Rather  than  compute  the  planetary  ephemerides  by  calling  EPH  each  time 
they  are  required,  a table  of  planetary  positions  and  velocities  is  computed  once 
each  case  at  equal  intervals  in  time,  and  Interpolation  is  used  for  all  subsequent 
evaluations.  This  table  provides  for  up  to  250  locations  for  each  Cartesian  com- 
ponent of  each  vector.  The  time  interval  between  tabular  entries  Is  determined 
internally,  being  a multiple  of  four  days  and  depending  upon  the  anticipated  mission 
duration.  That  is,  for  mission  durations  less  than  1000  days,  the  Interval  is  four 
days;  for  missions  of  1000-2000  days,  the  interval  is  eight  days;  etc.  The  table 
is  constructed  In  subroutine  EPHEM;  the  Interpolation  is  performed  in  subroutine 
INT. 


Ill,  PROGRAM  INPUTS 


Namelist  Input  Feature.  Inputs  to  ASTOP  are  given  through  the  namelist 
feature  of  the  IBM  Fortran  IV  programming  language.  The  input  namelist  is 
named  MINPUT,  and  every  Input  required  or  used  in  the  program  is  declared  by 
the  name  in  the  list.  The  general  form  for  assigning  an  input  value  to  a quantity  is, 
simply 

NAME  = VALUE 

where  NAME  is  the  name  assigned  to  the  variable  and  is  included  in  the  namelist, 
and  VALUE  is  a numerical  or  logical  quantity  consistent  in  form  (i.e. , logical, 
interger,  or  real)  with  NAME.  All  MINPUT  names  commencing  with  the  letters 
I-N  represent  integers,  whereas  all  names  commencing  with  the  letters  A-H  or 
O-Z  are  double  precision  floating  point  numbers.  All  input  data  sets  must  begin 
with  the  characters 


& MINPUT 

commencing  in  card  column  2 and  followed  by  at  least  one  blank.  The  data  set 
must  end  with  the  characters 

&END 

preceded  by  at  least  one  blank.  Card  column  1 is  ignored  on  all  input  cards. 
Multiple  data  assignments  on  a single  card  is  permissible  if  separated  by  commas. 
A comma  following  the  last  VALUE  on  a card  is  optional.  The  order  of  the  input 
data  assignments  is  arbitrary;  i.e. , they  need  not  be  in  the  same  order  as  listed 
In  the  namelist,  to  fact,  there  is  no  requirement  that  any  specific  input  parameter 
be  represented  in  the  input  data  set.  If  no  value  is  included  in  the  inputs  for  a 
particular  parameter,  the  default  value  is  used.  A complete  list  of  non-zero  de- 
fault values  of  input  variables  is  given  later  in  this  section.  For  other  details  re- 
garding the  namelist  feature,  the  reader  is  referred  to  the  IBM  System/360 
Fortran  IV  Language  Manual, 
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After  reading  Inputs,  the  routine  MODIF  is  called  and  can  be  used  for 
modifying  variables  not  available  as  program  inputs  simply  by  recompiling  the 
subroutine. 


Input  Variable  Descriptions 


Variable 

ALPHA 


AL1 

AL2 

AL3 


AO 


APS 


ARCDTA(1, 1) 


ARCDTA(2, 1) 


ARCDTA(3, 1) 
ARCDTA(4, 1) 
ARCDTA(5, 1) 


ARCDTA(6, 1) 


Definition 


a - angle,  in  degrees,  between  n and 
its  projection  in  the  body  fixed  I-J 
plane. 

a , a2>  a^  - coefficients  representing  the 

performance  of  a particular  launch 
vehicle  and  used  in  evaluating  the 
initial  spacecraft  mass  as  a function 
of  the  departure  speed,  a^  and  a^ 
are  in  kilograms ; a2  is  in  meters 
per  second. 

Array  of  up  to  ten  coefficients  aj  used  in 
the  polynomial  for  the  power  variation  y 
with  solar  distance.  Not  used  if  constant 
power  option  is  in  effect  (NOPT(66)=l). 

a - specific  propulsion  system  and  power- 
pS  plant  mass  in  kilograms  per  watt. 

t.  - time  at  end  of  i*“  arc  in  hours  from 
the  input  Julian  date. 

Tj  - trigger  with  possible  settings  of  ±1. 

A positive  setting  indicates  that  the 
ith  arc  will  be  a thrusting  arc,  whereas 
a negative  value  indicates  a coasting  arc. 

$,  V,  C,  or  8,  0,  0 - the  appropriate  set 
of  three  spacecraft  orientation  angles 
in  degrees,  for  the  1*0  arc. 

^ - maximum  permissible  value  of  the 

max  angle  >P,  in  degrees  for  the  itb  arc. 

Used  only  if  operating  in  the  constrained 
flight  mode. 


ARCDTA(7, 1) 


p - Increment  of  newer,  tn  watts,  generated 
by  the  po  .ver  source  but  not  available 
for  primary  propulsion,  for  the  i^  arc. 

For  the  first  arc,  only  t^  is  needed  o * used. 

ARRAY  A triply  dimensioned  array  (8,3,12;  of  program 

integration  intervals  as  a function  of  radial 
distance  from  the  current  reference  Dody. 

There  can  be  up  to  7 integration  intervals 
as  specified  by  the  8 radial  points. 

Define  the  array  as  ARRAY  (J,  K,  L),  then 

L=l,  12  - corresponding  planet  reference, 
as  follows: 

7 - Saturn 

8 - Uranus 

9 - Neptune 

10  - Pluto 

11  - not  used 

12  - not  used 

radial  value,  in  Earth  radii  when 
referring  to  Earth  reference;  in 
AU  otherwise. 

integration  interval,  in  (Earth  radii)5 
when  referring  to  Earth  reference ; 
in  (AU)2  otherwise. 

=3  - not  used. 

J=l,  8 - up  to  8 radii  or  7 intervals. 

The  integration  interval  ARRAY  (J,  2,  L) 
applies  between  the  two  radial  distances 
defined  by  ARRAY  (J,  1,  L)  and  ARRAY 
(J+l,  1,  L).  The  distances  must  be  input 
monotonically  increasing  with  J. 

BL  b - dimensionless  coefficient  used  in  the 

expression  for  electric  propulsion 
system  efficiency. 


K=1  - 
“2  - 


1 - Earth 

2 - not  used 

3 - sun 

4 - Venus 

5 - Mars 

6 - Jupiter 
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7^: 


/3 -angle,  In  degrees,  between  the  pro- 
jection of  n in  the  body  fixed  I-J 
plane  and  the  I (thrust)  axis. 


Array  dimensioned  (4,100),  containing  the  independent  para- 
meter information. 

BX(1,J)  Trigger  indicating  whether  J^1  parameter 

is  to  be  an  Independent  parameter  in 
boundary  value  problem. 

BX(1,  J)  = 0.  Not  an  independent  parameter. 

= i.  Used  as  independent  parameter. 

BX(2,  J)  Perturbation  increment  used  to  compute 

partial  derivatives.  Used  only  if  trigger 
is  on.  Units  are  same  as  that  of  the 
parameter. 

BX(3,J)  Maximum  change  to  J1  parameter  per- 

mitted in  a single  iteration.  Should  be  a 
positive  quantity.  Used  only  if  trigger  is 
on.  Units  are  same  as  that  of  the  parameter. 

BX(4,J)  Weighting  factor.  Should  be  a positive  quantity. 

A guideline  for  selecting  these  weights  is 
to  estimate  the  uncertainty  in  how  well  you 
think  you  know  a given  independent  variable. 
Then  set  the  weighting  factor  equal  to  the 
inverse  square  of  the  uncertainty,  where  the 
uncertainty  is  expressed  in  the  same  units 
as  the  input  units  of  the  variable.  The 
smaller  the  value  of  the  weighting  factor, 
the  more  the  importance  given  to  the 
associated  variable  by  the  Iterator. 

The  Initial  values  for  all  independent  parameters  are  input 

separately  as  described  below.  The  specific  independent 


parameters  associated  with  the  various  values  of  J in  the 
BX  array  are  as  follows: 

J = 1 t - time  of  departure  from  Earth  parking 

orbit  in  hours  from  the  input  Julian 
launch  date  (XJLD).  The  input  value 
is  assumed  to  be  zero.  Since  analytic 
partials  with  respect  to  t are  employed, 
BX(2,1),  the  Increment,  is  ignored. 

= 2-5  delta  Increments  in  the  parameters  argu- 

ment of  pericenter  (to),  longitude  of 
ascending  node  (Cl),  inclination  (i)  and  speed 
at  pericenter  (v^),  respectively.  The  units 

are  degrees  for  the  angles  and  Earth  radii 

per  hour  for  v . These  are  increments 

po 

to  the  nominal  values  obtained  from  the 
position  and  velocity  vectors  and  are  there- 
fore zero  on  all  nominal  trajectories.  No 
input  value  is  required  for  these  parameters. 
Since  analytic  partials  are  employed  for  these 
parameters,  the  perturbation  increments  are 
Ignored.  These  parameters  may  not  be  used 
in  conjunction  with  either  J=1  or  6. 

= 6 v - speed  at  departure  from  Earth  parking 

Po  orbit  in  Earth  radii  per  hour.  This 
parameter  is  not  input  but  is  computed 
from  the  VEL  vector.  Not  used  if 
BX(1, 5)  is  equal  to  one. 

= 7-9  x,  y,  and  z components,  respectively,  of 

the  geocentric  position  at  departure  from 
the  Earth  parking  orbit,  in  Earth  radii. 

May  not  be  used  as  Independent  parameters 
If  Independent  parameters  1-6  are  used. 

= 10-12  x,  y,  and  z components,  respectively,  of 

the  geocentric  velocity  at  departure  from 
the  Earth  parking  orbit,  In  Earth  radii  per 
hour.  May  not  be  used  as  Independent  variables 
if  independent  parameters  1-6  are  used. 
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J = 14 


= 15 


= 16-17 


= 18-19 


= 20 


Jet  exhause  speed  c of  low  thrust  pro- 
pulsion system  in  m/sec. 

Reference  power  pQ  of  low  thrust  pro- 
pulsion system  in  watts. 

Angles  cc  and  /3,  respectively,  in  degrees, 
defining  the  direction  of  the  unit  vector  n , 
the  normal  to  the  solar  cell  array,  relative 
to  the  body  fixed  coordinate  system  OIJK. 

Angles  6 and  e,  respectively,  In  degrees, 
defining  the  direction  of  the  s vector  rela- 
tive to  the  body  fixed  coordinate  system 
OUK. 

End  time  of  the  first  arc  in  hours. 


The  remaining  parameters  are  in  groups  of  four  for  each  arc 
commencing  with  the  second  arc.  i pertains  to  the  arc  number 
where  i a 2. 


4i+13  The  first  three  parameters  are  the  spacecraft 

41+14  orientation  angles,  in  degrees.  The  orientation 

41+15  angles  £,  v,  £ (unconstrained  mode)  or  0, 

0,  0 (constrained  mode)  have  identification 
numbers  4i+13,  4i+14,  4i+15,  respectively. 
The  mode  is  determined  by  option  NOPT(65). 

41+16  The  last  parameter  for  each  arc  is  the  time 

at  the  end  of  the  arc  in  hours. 

Array,  dimensioned  (3,50),  containing  information  pertinent  to 
the  dependent  parameters.  For  each  dependent  parameter  the 
Iterator  requires  up  to  three  input  quantities.  These  Inputs 
are: 

BY(1,L)  Trigger.  If  off  (l.e. , equal  to  zero),  the 

parameter  is  ignored  and  is  not  considered 
a dependent  parameter.  The*,  i bo  other 
two  Inputs  pertaining  to  the  Lth  para- 
meter need  not  be  input.  If  trigger  is  on 
(l.e.,  not  equal  to  zero),  the  L™  para- 
meter is  considered  to  be  a dependent 
parameter  or  constraint. 


BY  BY (2,  L)  Desired  value  of  the  dependent  parameter, 

(cont) 

BY (3,  L)  Tolerance  of  convergence  to  desired  value. 

The  specific  dependent  parameters  associated  with  the  several 
possible  values  of  L are  as  follows: 


L = 1 

Initial  mass  less  low  thrust  propellant 
and  retro  propellant  any,  in  kilograms 

= 2 

Net  spacecraft  mass  m^  in  kilograms. 

= 3 

Reference  thrust  f in  newtons. 
0 

= 4 

Heliocentric  distance  r in  AU. 

= 5 

Heliocentric  speed  v in  AU/hr. 

= 6 

Hello,  semi-major  axis  a in  AU. 

= 7 

Hello,  flight  path  angle  y in  degrees. 

= 8 

Helio.  eccentricity  e. 

= 9 

Helio.  apocenter  distance  r in  AU. 

Si 

= 10 

Hello,  perlcenter  distance  r in  AU. 

P 

= 11 

Planetocentrlc  distance  rT  in  AU. 

= 12 

Planetocentrlc  speed  v^,  in  AUAr. 

= 13 

Planeto.  semi-major  axis  aT  In  AU. 

= 14 

Planeto.  flight  p*  angle  in  deg. 

= 15 

Planeto.  eccentricity  e^,. 

*16 

Planeto.  apocenter  distance  r in  AU. 

i SL 

= 17* 

Planeto.  pericenter  distance  r^,  In  AU, 

♦When  this  parameter  Is  designated  as  an  end  condition,  its  trigger  Is  automatically 
reset  to  zero  as  ts  that  of  r-j.  (L=ll),  and  the  triggers  of  the  Cartesian  coordinates 
(L=18-20)  are  set  to  one.  The  desired  values  of  r>j>  and  the  tolerances  of  the 
Cartes  icn  coordinates  must  be  input.  A flag  Is  set  Internally  to  re-evaluate  the  desired 

values  of  the  Cartesian  coordinates  on  each  trajectory. 
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Cartesian  coordinates  of  vehicle 
with  respect  to  target  in  AU. 

used. 

The  notation  employed  above  for  the  end  conditions  Is  con- 
sistent with  that  used  In  the  description  of  subroutine  FNMAT 
of  this  report.  The  reader  is  referred  there  for  a mathematical 
description  of  each  end  condition. 


CA 

c - fraction  of  photons  Incident  on  the 
solar  arrays  that  are  absorbed 
(0s  ca  * 1).  The  remainder  of  the 
photons  are  assumed  to  be  reflected 
at  an  angle  equal  to  the  incidence 
angle. 

CE 

c - jet  exhaust  speed  of  electric  propulsion 
system,  in  meters  per  second. 

CNI 

Not  presently  used. 

CR 

c - jet  exhaust  speed  of  the  retro  stage 
in  m/sec. 

DELP 

Ap  - power  of  the  individual  thrusters,  in 
watts.  A non-zero  value  Implies  dis- 
crete steps  In  power  consumed  by 
electric  propulsion  system  as  distance 
from  the  sun  varies. 

DLTA 

6 - angle,  in  degrees,  between  s and  its 
projection  In  the  body-fixed  I-J  plane, 

DP 

Aa  - portion  of  spacecraft  area  independent 
of  the  reference  power,  In  m . 

DSQ 

2 

d - coefficient  used  In  the  expression  for 
electric  propulsion  system  efficiency, 
In  units  of  m2/sec2. 

ECI 

Not  used. 

BY  L « 18  x 

(cont)  - 19  y 

* 20  z 

= 21-50  Not 


EMUDD 


Not  used, 


* 


ENPLAN 


EPSLON 


ER 


IREFNB 

IREFNT 


ITF 


ITMAX 


MOPT 


The  flag  defining  the  number  of  attracting 
bodies  to  be  included  in  the  simulation. 
Referring  to  the  list  of  planet  numbers  in 
the  description  of  IREFNB,  the  input 
number  for  this  flag  means  that  all  bodies 
in  the  list  whose  planet  number  is  1 3ss  than 
or  equal  to  this  flag  are  included  lr.  the 
simulation.  Thus,  the  input  value  of  this 
flag  should  be  greater  than  or  equal  to  the 
target  planet  number.  If  the  target  Is  not  a 
planet,  the  flag  must  be  greater  than  or 
equal  to  3. 

€ - angle,  in  degrees,  between  the  pro- 
jection of  s in  the  body  fixed  I-J 
plane  and  the  I (thrust)  axis. 

Vector  containing  the  x,  y,  and  z com- 
ponents, respectively,  of  the  inertial  unit 
vector  along  which  s is  to  be  directed. 

Used  only  if  NOPT(64)  = 2. 

These  two  fields  are  the  planet  numbers  of 
the  launch  and  target  planets,  respectively. 
The  code  numbers  for  the  individual  planets 
are  as  follows: 

1 - Earth  6 - Jupiter 

2 - not  presently  used  7 - Saturn 

3 - Sun  8 - Uranus 

4 - Venus  9 - Neptune 

5 - Mars  10  - Pluto 

Provides  normal  termination  conditions  for 
runs  which  require  more  execution  time  than 
is  estimated.  The  value  specifies  the  number 
of  CPU  seconds  required  to  execute  the 
summary  trajectory. 

Maximum  number  of  Iterations  in  each  of  the 
two  modes,  select  and  optimize,  of  the 
iterator. 

Index  defining  which  of  the  available  end 
conditions  is  to  be  the  performance  Index 
of  the  problem.  Corresponds  to  the  index 
L of  the  BY  array. 


•h  . 


! ' 


"X  X 


NARCS 


NOPT 


i 


A 


Number  of  arcs  comprising  the  complete 
trajectory,  including  the  initial  arc 
commencing  at  departure  from  the  launch 
parking  orbit  during  which  no  thrust  is 
permitted. 

A 72  element  array  of  ASTOP  option  flags. 
Elements  2-13  and  40-46  are  used  to 
select  or  suppress  printout  of  position  and 
velocity  Information  relative  to  various 
reference  bodies.  A non-zero  value  input 
for  a specific  element  results  in  the  print- 
ing of  the  associated  vector  at  each  print 
point.  Note  that  for  elements  41-46, 
element  40  must  also  be  set  non-zero. 

The  vectors  associated  with  each  element 
are  as  follows: 

2 - Spacecraft  position  relative  to  current 

Integration  reference  body,  in  km. 

3 - Spacecraft  velocity  relative  to  current 

integration  reference  body,  in  km/sec. 

4 - Spacecraft  position  relative  to  Earth, 

in  km. 

5 - Spacecraft  position  relative  to  Moon, 

in  km. 

6 - Moon  position  relative  to  Earth,  in  km. 

7 - Spacecraft  position  relative  to  Sun, 

In  km. 

8 - Spacecraft  position  relative  to  Venus, 

in  km. 

9 - Spacecraft  position  relative  to  Mars, 

in  km. 

10  - Spacecraft  position  relative  to  Jupiter, 

in  km. 

11  - Spacecraft  position  deviation  from 

reference  two  body  conic,  in  km. 

12  - Spacecraft  velocity  deviation  from 

reference  two  body  conic,  in  km/sec. 
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w*3 


NOPT 

(cont) 


13  - Non-two  body  accelerations  acting  on 
spacecraft,  In  km/sec2. 

40641  - Spacecraft  position  relative  to  Saturn, 

In  km. 

40642  - Spacecraft  position  relative  to  Uranus, 

In  km. 

40643  - Spacecraft  position  relative  to  Neptune, 

in  km. 

40644  - Spacecraft  position  relative  to  Pluto, 

In  km. 

40645  - Spacecraft  position  relative  to  Earth- 

Moon  barycenter,  In  km. 

40646  - Spacecraft  position  relative  to  Mercury, 

In  km.  (Not  available) 

The  remaining  elements  that  are  currently  used  by  ASTOP  are 
as  follows: 


16  - Controls  the  printing  of  Information  at 
each  rectification  point. 

=0  - Information  Is  printed 
7*0  - printout  Is  suppressed 

33  - Controls  the  units  of  printout  of  the 
osculating  orbital  elements  semi- 
major axis  a,  apoapse  distance  rft, 
and  perlapse  distance  rp. 

=0  - a in  units  of  Earth  radii  and 

r and  r In  kilometers. 

P a 

7*0  - a,  r and  r.  In  units  of  AU. 

P B 

5*  - Indicates  that  the  orbital  elements 
of  the  target  are  input.  Thl6  option 
Is  not  currently  available.  The 
value  should  be  zero,  the  default  value. 
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57  - Indicates  that  a final  retro  maneuver 

Is  to  be  simulated. 

=0  - no  retro  maneuver. 

^0  - a retro  maneuver  Is  to  be 
performed.  The  parameters 
RTA  and  RTP  as  well  as 
the  retro  stage  structural 
and  performance  parameters 
must  be  Input. 


i i 


i 


- Defines  whether  the  Iterator  commences 
In  the  select  or  opt'mlze  mode. 

=0  - start  In  select  mode. 

7*0  - start  In  optimize  mode.  This 
option  will  usually  be  employed 
on  continuation  cases. 

60  - T riggers  optional  printout  of  trajectory 
Information  at  arc  end  points  on  the 
final  trajectory  only  or  on  all  tra- 
jectories. 

=0  - printout  requested  on  final 
trajectory  only. 

7*0  - printout  requested  on  all 
trajectories, 

63  - Contains  the  Identification  number  of 

the  planet  toward  which  s Is  to  be 
directed.  The  code  Is  the  same  as 
for  the  Inputs  1REFNB  and  IREFNT. 
Used  only  If  NOPT(64)  = 1 and 
NOPT(65)  = 2. 

64  - Defines  the  type  of  constraint  placed 

on  the  c vector,  as  follows: 

=1-5  directed  toward  the  planet 
indicated  by  NOPT(63). 

2-5  ts  directed  along  the  Input 
Inertial  vector  ER. 

3 - 5 Is  directed  along  the  heliocentric 
veloctty  vector. 

Used  only  If  NOPT<65)  = 2. 


36 


/ 


I 


r 


65  - Defines  the  steering  mode. 


=1  - unconstrained  mode 
2 - constrained  mode. 

66  - Defines  the  type  of  electric  propulsion 
system, 

— 0 - solar  electric 
1*0  - nujlear  electric 

68  - Specifies  the  orientation  constraints 
of  the  solar  arrays. 

=0  - array  articulation  Is  restricted 
to  rotation  about  the  longitudinal 
axis. 

jf*0  - avrays  are  foi  ced  to  be  normal 
to  the  sun  line  throughout  the 
trajectory. 

NPR  A non-zero  value  c luses  the  partlr-1  deriva- 

tive matrix  to  be  printed  in  subroutine 
MINMX3.  This  flag  need  not  be  set  since 
the  matrix  is  automatically  printed 
elsewhere. 

NPWR  Number  of  coefficients  used  in  polynomial 

expression  for  power  as  a function  of  solar 
distance.  Not  used  if  constant  power  option 
is  In  effect  (NOPT(66)  = 1). 

OMI  Not  used. 

POS  Vector  containing  the  geocentrtx  x,  y, 

and  z components,  respectively,  of  the 
spacecraft  position  a.  departure  from  the 
Earth's  parking  orbit,  in  Earth  radii. 

POSRCS  Position  deviation  rectification  criteria. 

Reference  two-body  trajectory  is  rectified 
if  Ul2/rk2  > POSRCS. 

PO  p - reference  power  in  watts. 
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RBRE 


Radius  of  the  Earth's  sphere  of  influence 
in  Earth  radii. 


REKM 

RTA 

RTP 

SAI 

SOI 

THTS 


TIMEL 


TPI 


Distance  conversion  factor.  Equal  to  the 
number  of  kilometers  in  one  Earth  radius. 

Apocenter  and  pericenter  distances,  res- 
pectively, of  capture  orbit  about  target 
planet,  in  planeta-  y radii. 

Not  used. 

Not  used. 

* 

Maximum  change  permitted  in  the  osculating 
eccentric  anomaly  beyond  which  rectification 
of  the  nominal  two  body  orbit  is  performed 
before  continuing  the  integration  of  the 
trajectory. 

Total  time  interval  in  hours  from  XJLD  over 
which  ephemeris  table  for  all  planets  in 
simulation  is  created  at  start  of  run. 

Not  used. 


TSCL 


Time  conversion  factor  for  input/output 
purposes.  Normally  set  to  3600. 


VEL  Vector  containing  the  geocentrix  x,  y 

and  z components  of  the  spacecraft  velocity 
at  departure  of  the  parking  orbit,  in  Earth 
radii  per  hour. 

VELRCS  Velocity  deviation  rectification  criteria. 

Two  body  reference  trajectory  is  rectified 
if  H | 2/(Rk  • R ) > VELRCS. 

WTOPT  Weighting  factor  for  the  performance  index 

in  the  optimize  mode.  Larger  values  of 
WTOPT  result  in  more  relative  emphasis 
being  placed  on  the  performance  index  as 
compared  to  the  end  conditions. 
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XDAB 

Array  of  seven  perturbations  of  state 
variables  x,  y,  z,  x,  y,  z and  in,  res- 
pectively, at  the  start  of  each  arc  except 
first.  Used  to  evaluate  state  transition 
matrix  for  each  arc.  The  appropriate  units 
are  AU  for  position,  AU/hr  for  velocity  and 
kilograms  for  mass.  Only  heliocentric 
position  and  velocity  are  used  as  state 
variables. 

XJLD 

Julian  date  (with  leading  244  omitted) 
which  represents  the  launch  date  corres- 
ponding to  the  initial  conditions  input  in 
POS  and  VEL. 

XKP 

k - surface  area  of  solar  arrays  per  unit 
P reference  power,  in  m2/watt. 

XKR 

k - tankage  factor  of  the  retro  stage, 
r 

XKS 

k - solar  pressure  acting  on  flat  plate  at  a 
distance  of  1 AU  from  the  sun 
assuming  all  photons  are  absorbed, 
in  newtons/m2. 

XKST 

k . - structure  factor  of  the  spacecraft, 
st 

XKT 

kt  - tankage  factor  of  the  electric  propulsion 
system. 

XMDKM 

Conversion  factor  for  distance,  equal  to 
the  number  of  kilometers  in  1 AU. 

YAMBDA 

Inhibiting  parameter  to  control  the  step 
size  in  the  iterator,  MINMX3.  The  input 
is  used  only  on  continuation  cases. 

Input  Variable  Default  Values 


AL1  =138726.52 

POSRCS  = .0001 

AL2  = 3776. 8656 

P0  = 50000. 

AL3  = 1999.2024 

RBRE  = 123.4 

AO  = .627 

REKM=  6378.165 

5.3054 

-13.0376 

RTA  = 38. 

7.1073 

RTP  = 2. 

-2.0021 

SAI  = 1. 

APS  = .03 

THTS  = 1. 5 

ARRAY (2,1, 1)*  =400. 

TIMEL  = 15000. 

ARRAY(1,2,I)*  = .00390625 

TSCL  = 3600. 

BL  = .769 

WTOPT  = 1. 

CE  = 30000. 

VEL(2)  = 7. 

CR  = 2941.995 

VELRCS  = .0001 

DSQ  = 204490000. 

XDAR  = .ID-8 

ENPLAN  = 6 . 
EH  (3)  = 1. 
IREFNB  = 1 
IREFNT  = 6 
ITF  = 10 
ITMAX  = 50 
NARCS  = 5 
NPWR  = 5 
POS(l)  = 1.025 


.ID-8 

.ID-8 

.ID-9 

.ID-9 

.ID-9 

.ID-2 

XKR  = . 11111110 
XKT  = . 03 

XMDXM  = 149598000. 
YAMBDA  = 2~28 


Note:  All  other  input  variables  and  arrays  are  defaulted  to  zero. 


IV. 


PROGRAM  OUTPUT 


Standard  Printout.  The  printout  of  ASTOP  may  be  divided  conveniently 
into  four  groups  as  follows:  (1)  the  namelist  inputs,  (2)  the  iteration  summary, 

(3)  the  final  trajectory  summary,  and  (4)  the  case  summary.  The  iteration 
summary  is  written  for  each  nominal  trajectory  and  contains  independent  and  de- 
pendent parameter  information,  a spacecraft  mass  breakdown,  and  the  partial 
derivative  matrix.  The  final  trajectory  summary  includes  position  and  velocity 
data  at  the  initial  time  and  at  the  end  of  each  arc.  The  case  summary  is  a 
collection  of  trajectory,  spacecraft  and  mission  data  that  will  usually  be  of  interest 
to  the  mission  analyst  and  is  intended  to  serve  as  a brief,  one-page  description  of 
the  salient  features  of  the  case.  A more  detailed  description  of  the  ASTOP  output 
is  given  in  the  following  paragraphs. 

To  provide  a means  of  verifying  the  inputs  to  the  program,  the  input  namelist 
MINPUT  is  printed  at  the  start  of  each  case.  The  format  is  standard  namelist  format 
as  provided  in  the  Fortran  language.  All  input  variables  are  listed  in  alphabetical 
order. 

For  each  trajectory  selected  as  a nominal  and  for  which  a partial  derivative 
matrix  is  evaluated,  the  iteration  summary  is  printed  starting  at  the  top  of  a new  page 
for  each  iteration.  Following  a statement  of  the  iteration  number  is  written  a block 
of  parameters  preceded  with  the  heading  "INDEPENDENT  PARAMETERS".  The 
block  contains  all  parameters,  each  appropriately  titled,  that  are  available  for 
selection  as  independent  parameters  of  the  boundary  value  problem  regardless  of 
whether  they  are  actually  so  designated.  Those  which  are  employed  as  independent 
parameters  in  the  specific  case  being  considered  are  indicated  with  a double  asterisk 
beside  the  title.  The  length  of  the  block  is  variable  because  that  depends  on  the 
number  of  trajectory  arcs  in  the  problem.  The  first  line  of  the  block  contains  seven 
parameters  representing  the  initial  state  of  the  spacecraft  (three  components  each 
of  the  initial  position  and  velocity  plus  the  initial  mass).  The  second  row  contains 
the  jet  exhaust  speed,  e,  and  reference  power  pQ,  the  angles  a and  /3  defining 
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the  orientation  of  n,  the  angles  6 and  e defining  the  orientation  of  s,  the  initial 
time  t^,  and  the  time  of  the  end  of  the  first  (coasting)  arc.  The  next  line(s)  con- 
tains the  three  thrust  angles  and  the  end  time  for  each  of  the  arcs  (exclusive  of  the 
first)  comprising  the  trajectory.  Each  line  contains  information  for  two  arcs. 
Following  the  arc  data  are  the  four  parameters  defining  changes  in  the  initial 
orientation  of  the  launch  parking  orbit  and  the  speed  of  departure  frem  that  orbit. 
These  parameters  are  titled  "DLOMS",  "DLOML",  "DLINC",  and  "DLVPO"  and 
represent  changes  from  the  previous  nominal  in  argument  of  perigee,  longitude  of 
ascending  node,  inclination  to  the  equator,  and  speed  at  periapse  of  the  launch  hyper- 
bola, respectively.  The  final  parameter  in  the  independent  parameters  block  is  the 
speed  of  periapse  of  the  launch  hyperbola. 

The  next  block  of  data  consists  of  the  20  parameters  which  are  presently 
available  as  end  conditions.  These  parameters  are  all  appropriately  titled  and 
are  preceded  by  the  heading  "DEPENDENT  PARAMETERS".  Again,  those  para- 
meters which  are  specified  as  end  conditions  of  the  case  are  indicated  with  a double 
asterisk  beside  the  title.  The  parameters  comprising  the  20  available  end  condi- 
tions are  the  final  spacecraft  mass;  the  net  spacecraft  mass;  the  reference  thrust; 
the  final  heliocentric  distance  and  speed;  the  final  heliocentric  osculating  semi- 
major axis,  flight  path  angle,  eccentricity,  apocenter  distance  and  perihelion  dis- 
tance; the  target  centered  final  distance  and  speed;  the  final  planetocentric  osculating 
semi-major  axis,  flight  path  angle,  eccentricity,  apocenter  distance  and  pericenter 
distance;  and  the  three  final  planetocentric  ecliptic  Cartesian  components  of  distance. 

Following  the  block  of  dependent  parameters  is  a line  stating  the  reference 
system  in  which  the  integration  terminated,  the  value  of  the  Inhibitor  used  by  the 
iterator,  and  a trajectory  counter.  This  counter  is  the  cumulative  number  of  tra- 
jectories integrated  exclusive  of  the  nominal  trajectories.  This  is  followed  by  a 
spacecraft  mass  breakdown.  This  includes  the  initial  mass,  the  low  thrust  propulsion, 
propellant,  and  tankage  masses,  the  structural  mass,  the  retro  propellant  and 
structure,  and  the  net  spacecraft  mass.  Finally,  the  iteration  summary  print  is 
concluded  with  the  partial  derivative  matrix.  Each  row  of  this  matrix  represents 


the  j'^rtials  of  one  of  the  specified  end  conditions  with  respect  to  all  of  the  indicated 
independent  parameters.  The  order  of  the  partials  reading  across  a given  row  is 
the  same  as  that  in  which  independent  parameters  appear  in  the  first  block  of  data 
of  the  iteration  summary.  Likewise,  the  order  reading  down  the  matrix  is  that  in 
which  the  dependent  parameters  as  they  appear  in  the  second  data  block.  Additional 
self-explanatory  messages  from  the  iterator  may  follow  the  partial  derivative  matrix. 

Any  particular  case  may  terminate  for  one  of  several  reasons  such  as  (1) 
the  case  is  converged,  (2)  the  case  will  not  converge,  (3)  the  maximum  number  of 
iterations  specified  is  exceeded,  or  (4)  the  case  times  out.  Regardless  of  the  cause 
of  the  termination,  a final  trajectory  summary  is  then  printed.  This  summary  con- 
sists of  standard  program  print  for  the  initial  time  and  for  the  final  times  of  the 
several  arcs  comprising  the  trajectory.  This  includes  at  each  point  the  position  and 
velocity  data  as  requested  through  the  input  flags  NOPT(2)  - N0PT(16)  plus  a variety 
of  osculating  elements  evaluated  at  the  same  times.  The  osculating  elements  are  the 
true  anomaly,  semi-major  axis,  eccentricity,  periapse  distance,  apoapse  distance, 
inclination,  argument  of  periapse,  period,  mean  motion,  right  ascension  of  ascend- 
ing node,  mean  anomaly,  eccentric  anomaly,  and  time  since  periapse  passage.  Each 
data  point  also  includes  the  ecliptic  Cartesian  coordinate  of  a unit  vector  along  the 
periapse  direction  and  of  another  unit  vector  along  the  angular  momentum. 

After  indicating  the  launch  planet  and  target  of  the  case  mission,  the  case 
summary  contains  a statement  as  to  whether  the  program  is  operating  in  the  constrained 
or  unconstrained  mode  for  the  case.  If  in  the  constrained  mode,  a me  ssage  is  printed 
specifying  the  reference  to  which  s is  constrained.  For  the  case  in  which  the 
reference  is  a star,  the  input  unit  vector  defining  the  location  of  the  star  is  printed. 

This  is  followed  with  a line  of  data  specifying  several  of  the  input  coefficients  used 
for  the  case.  Included  are  the  coefficients  describing  the  capability  of  the  launch 
vehicle,  the  low  thrust  propulsion  system  efficiency  coefficients,  the  photon  absorp- 
tion coefficient  c , and  the  specific  array  area  k . A spacecraft  mass  breakdown 
a p 

similar  to  that  printed  in  the  Iteration  summary  is  then  written,  followed  by  the 
angles  a,  0,  6,  and  € which  define  the  orientation  of  the  n and  s vectors  in 
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the  body  fixed  coordinate  system.  The  next  line  of  data  contains  a number  of  low 
thrust  propulsion  system  parameters  including  the  reference  power,  the  reference 
thrust,  the  jet  exhaust  speed,  the  efficiency,  the  unit  thruster  power  Ap,  and  the 
array  area.  A trajectory  schedule  is  then  printed,  giving  pertment  information  from 
the  ARCDTA  array  relative  to  each  arc.  The  first  line  of  the  block  contains  the  end 
times  of  all  arcs.  Below  this  are  written  six  lines  of  data  containing  the  three  thrust 
angles,  the  power  diverted  for  non -propulsive  uses  p r,  the  maximum  allowable 
half-cone  angle  0max  (applicable  only  for  constrained  mode  cases),  and  the  thrust 
mode  indicator  "ON"  or  "OFF"  defining  the  operational  status  of  the  propulsion 
system  for  the  arc.  These  six  quantities  are  positioned  in  separate  columns  for 
each  arc,  and  the  columns  are  located  below  and  midway  between  the  two  times 
defining  the  start  and  end  of  the  arc.  If  there  are  more  than  eight  arcs,  the  format 
is  repeated  until  all  arcs  are  accounted  for.  No  information  is  printed  for  the  first 
arc  since  no  thrust  is  permitted  on  the  arc.  After  the  trajectory  schedule  are  written 
the  date,  the  hyperbolic  excess  speed,  and  the  energy  parameter  c at  departure  of 

o 

the  launch  planet  and  upon  arrival  at  the  target.  If  no  reli  o maneuver  is  required, 
the  departure  and  arrival  conditions  complete  the  case  summary  printout..  If  a retro 
maneuver  is  performed,  however,  then  related  parameters  are  printed  on  a pingjo 
line.  These  include  the  retro  stage  propellant  and  structure,  the  periapse  and  apoapse 
distances  of  the  final  orbit,  the  specific  impulse  of  the  retro  stage,  the  orbital  velocity 
at  periapse  of  the  capture  orbit,  and  the  incremental  velocity  imparted  by  the  retro 
stage.  All  units  are  explicitly  indicated  on  the  case  summary  page.  Examples  of 
the  above  types  of  printout  available  with  ASTOP  are  given  in  the  Section  VIII, 
EXAMPLE  CASE. 

Information  and  Error  Messages.  A number  of  messages  can  be  printed 
under  special  circumstances.  These  messages  are  listed  below.  For  each  one, 
the  subroutine  in  which  the  print  statement  appears  Is  listed,  the  logical  unit  on 
which  the  message  is  written  is  given,  the  circumstances  or  cause  for  the  message 
is  explained,  the  response  of  the  system  Is  described,  and  some  suggested  user 
responses  are  given  when  applicable. 
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Actually  all  messages  are  currently  written  on  unit  6 since  the  logical  unit 
variable  10  is  set  to  6 internally.  Note  that  some  messages  are  coded  to  unit  6 
directly.  For  a description  of  the  variables  printed  in  the  messages,  the  reader  is 
referred  to  the  description  of  the  appropriate  subroutine  noted.  The  description  of 
the  messages,  in  alphabetical  order,  follows. 

1.  CASE  CONVERGED 


Subroutine: 
Logical  Unit: 
Cause  or  Reason: 

System  Response: 
User  Response: 


IT  MAT 
10  (=6) 

The  criterion  used  by  the  iterator  indicates  that  the  desired 
solution  was  achieved. 

Continues  processing. 

None.  The  message  is  for  information  purposes  only. 


2.  EPHEMERIS  TABLE  FILLED.  CHECK  INPUT  PARAMETER  TIMEL  ON 

FUTURE  RUNS  FOR  POSSIBLE  REDUCTION  IN  EPHEMERIS  COMPUTATIONS. 


Subroutine:  EPHEM 


Logical  Unit:  6 

Cause  or  Reason:  All  250  storage  locations  in  the  array  TBBL  of  common 

NORML  for  each  Cartesian  coordinate  of  each  planet  have 
been  filled. 


System  Response:  If  the  input  parameter  TIMEL  significantly  exceeds  the  flight 

time,  in  hours,  TIMEL  should  be  reduced  on  future  runs  to 
eliminate  computations  of  planetary  ephemerides  at  time  points 
that  will  not  be  used. 


3.  ERROR  CONDITION  RETURNED  FROM  MINMX3.  RUN  TERMINATED  IN 
SUBROUTINE  IT  MAT 


Subroutine: 


ITMAT 


Logical  Unit:  10  (-6) 

Cause  or  Reason:  The  iterator,  subroutine  MINMX3,  has  detected  an  uncorrectable 

error  and  has  transmitted  and  error  condition  to  the  calling 
routine  ITMAT. 

System  Response:  The  job  Is  immediately  terminated  after  writing  the  above 

message. 

User  Response:  Follow  the  directions  given  for  companion  messages  generated 

In  MINMX3  at  the  time  the  error  condition  was  detected. 


4.  ERROR  IN  PARTIAL  DERIVATIVE  CALCULATION 

Subroutine:  MINMX3 

Logical  Unit:  6 

Cause  or  Reason:  An  error  condition  was  detected  in  subroutine  TRAJL  while  Inte- 

grating a nominal  and  perturbation  trajectories,  and  an  error 
flag  was  returned  to  the  calling  routine  MINMX3. 

System  Response:  An  error  condition  flag  is  set  and  returned  to  ITMAT.  A return 

is  then  execute;  from  MINMX3. 

User  Response:  Presently,  no  error  conditions  are  monitored  in  TRAJL.  There- 

fore, this  message  will  not  appear. 


ERROR  TBAR  - TOBAR  TOO  LARGE  = (D17.8) 
REDUCTION  DEN  XX  ZZ  YY  DELT  IXX 

(D25.161  (D25.16)  (D25.161  (D25.16) 


Subroutine: 


SAMM 


Logical  Unit: 


10  (--6) 


Cause  or  Reason:  The  time  interval  input  to  subroutine  SAMM  exceeds  the  period 

of  the  orbit. 


System  Response: 


A set  of  reduction  formulae  are  automatically  Invoked  to  assure 
accurate  computations  over  the  long  arc. 


UBer  Response:  None.  The  message  is  for  Information  purposes  only. 


J 

J 

] 
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6. 


FIRST  GUESSES  WILL  NOT  RUN  TRAJECTORY 


Subroutine: 

Logical  Unit: 
Cause  or  Reason: 

System  Response: 
User  Response: 

7.  ITERATOR 
Subroutine: 

Logical  Unit: 
Cause  or  Reason: 

System  Response: 

User  Response: 

8.  ITERATOR 
Subroutine: 

Logical  Unit: 
Cause  or  Reason: 

System  Response: 
User  Response: 


MINMX3 

6 

An  error  condition  was  detected  in  subroutine  TRAJL  while 
Integrating  the  first  trajectory  of  a case. 

An  error  flag  is  set  and  returned  to  subroutine  ITMAT. 

Presently,  subroutine  TRAJL  does  not  monitor  any  error 
conditions.  Therefore,  this  message  will  never  appear. 


IS  GIVING  ERROR  RETURN 
MINMX3 
6 

An  error  condition  was  detected  in  subroutine  TRAJL  while 
integrating  a trajectory. 

An  error  condition  flag  is  set  and  returned  to  subroutine  ITMAT. 
A return  to  the  calling  program  is  then  executed. 

Presently,  no  error  conditions  are  monitored  in  subroutine 
TRAJL.  Therefore  this  message  will  never  appear. 

IS  NOW  IN  OPTIMIZE  MODE 
MINMX3 


6 


All  specified  end  conditions  have  been  satisfied  within  specified 
tolerances,  thereby  completing  the  objectives  of  the  select 
mode  of  the  Iterator. 

The  iteration  continues  in  the  optimize  mode. 

None.  Message  is  for  information  purposes  only. 
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9. 


MATRIX  INVERSION  NOT  PERFORMED  ON  LAST  ITERATION 


Subroutine:  MINMX3 


Logical  Unit:  6 


Cause  or  Reason:  An  error  condition  was  detected  In  subroutine  SIMEQ  while 

iterating  In  the  select  mode.  The  Inhibitor  was  moderately 
large,  Indicating  some  convergence  difficulty. 

System  Response:  A return  to  the  subroutine  ITMAT  is  executed  after  printing 

a message  defining  the  number  of  trajectories  generated. 


User  Response:  The  error  condition  in  SIMEQ  arises  if  the  simultaneous  equa- 

tions being  solved  are  not  all  Independent.  Normally  this  would 
suggest  an  error  in  defining  the  Independent  and/or  dependent 
parameters. 


10.  MAXIMUM  ITER.  EXCEEDED  I,  BETA,  BETA  Ml  = (14)  (E17.8)  (E17.8) 


Subroutine : SA  MM 


Logical  Unit:  10  (-6) 

Cause  or  Reason:  The  iteration  for  the  solution  of  Kepler's  problem  did  not  con 

verge  to  the  require^  tolerance  in  40  Iterations. 


System  Response:  Processing  continues  with  "he  values  attained  on  the  last  iteration. 

User  Response:  This  message  Is  unlikely  to  appear.  However,  if  it  should 

appear,  It  would  signal  either  a very  unusual  orbit  or  a large 
time  Interval.  Look  for  an  input  error,  bad  guesses  of  the 
independent  parameters,  or  a program  error. 


11.  MAXIMUM  NUMBER  OF  ITERATIONS  EXCEEDED 
Subroutine:  MINMX3 

Logical  Unit:  6 

Cause  or  Reason:  The  specified  number  of  iterations,  ITMAX,  was  reached  in 

either  the  select  or  optimize  mode. 
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System  Response:  The  last  nominal  trajectory  Is  Integrated  once  again  for  print 

purposes  and  the  case  Is  terminated. 

User  Response:  Resubmit  the  job  with  the  independent  parameters  updated  to 

the  last  iteration. 


12.  MDC  EPH  ERROR 
Subroutine:  EPH 


Logical  Unit: 
Cause  or  Reason: 

System  Response: 

User  Response: 


6 


The  iterative  solution  of  Kepler's  problem  failed  to  converge 
to  prescribed  tolerances  within  200  iterations. 

The  values  attained  after  the  limiting  number  of  Iterations  are 
used  for  subsequent  calculations. 

This  unlikely  error  condition  would  most  likely  occur  due  to 
Input  errors. 


13.  PARABOLIC  ORBIT  OSCULATING  ELEMENTS  SUPPRESSED 
Subroutine:  ELCO 

Logical  Unit:  10  (=6) 


Cause  or  Reason:  The  input  position  and  velocity  vectors  resulted  In  a value  for 

the  Inverse  of  the  semi-major  axis  exactly  equal  to  zero,  In- 
dicating a parabolic  orbit. 

System  Response:  The  calculations  and  printing  of  the  osculating  orbital  elements 

are  bypassed. 

User  Response:  None.  The  message  Is  printed  for  Information  purposes  only. 


14.  PDATE  ERROR 
Subroutine:  PDATE 

Logloal  Unit:  6 


Cause  or  Reason:  The  Input  date  corresponds  to  a calendar  year  greater  than  2100. 


System  Response:  The  year  Is  set  to  2100  and  computation  continues. 

User  Response:  Correct  inputs  or  if  the  date  is  actually  beyond  the  year  2100, 

then  rewrite  subroutine  PDATE. 


15.  RVE  EXCEEDS  MAX. 

IREFNO  = (1.3)  TIME  =■  (D24. 15)  R » (D24.15) 

Subroutine:  DETDT 


Logical  Unit:  10  (~6) 


Cause  or  Reason:  The  c *ent  radial  distance  from  the  reference  body  exceeds 

the  largest  tabular  value  for  that  body  in  ARRAY 

System  Response:  The  Integration  interval  is  left  unchanged  and  computation 

continues. 


User  Response:  Correct  the  input  ARRAY  table  to  accomodate  the  range  of 

distances  encountered  on  the  trajectory. 


} 0.  RVE  LESS  THAN  MIN. 

IREFNO  = (13)  TIME  = 


(D24.15)  R - (D24.15) 


Subroutine: 
Logical  Unit: 
Cause  or  Reason: 

System  Response: 

User  Response: 


DETDT 
IO  (=6) 

The  current  radial  distance  from  the  reference  body  is  less 
than  the  first  tabular  value  for  that  body  in  ARRAY, 

The  Integration  interval  is  left  unchanged  and  computation 
continues. 

Correct  the  Input  ARRAY  table  to  accomodate  the  range  of 
distances  encountered  on  the  trajectory. 


17.  THIS  CASE  HAS  TIMED  OUT 
Subroutine:  TRAJL 

Logical  Unit:  IO  (=6) 
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Cause  or  Reason: 
System  Response: 
User  Response: 


It  was  determined  from  subroutine  REMTIM  that  either  the 
CPU  or  10  time  remaining  for  the  job  was  about  to  run  out. 

A final  trajectory  Is  generated  for  print  purposes,  the  case 
summary  Is  printed,  and  the  job  is  terminated. 

Resubmit  the  job  after  updating  the  Independent  parameters. 


18.  THIS  CASE  IS  CONVERGED 
Subroutine:  MINMX3 


Logical  Unit: 


6 


Cause  or  Reason:  The  criterion  used  by  the  Iterator  Indicates  that  the  desired 

solution  was  achieved. 

System  Response:  Continues  processing. 

User  Response:  None.  Message  Is  for  Information  purposes  only. 


19.  THIS  CASE  WILL  NOT  CONVERGE 


Subroutine:  MINMX3 


Logical  Unit:  6 

Cause  or  Reason:  While  operating  tn  the  select  mode,  the  Iterator  determines 

that  no  further  Improvement  of  the  dependent  parameters  can 
be  achieved. 

System  Response:  A flag  Is  69t  Indicating  that  convergence  was  not  achieved, 

and  a return  to  IT  MAT  la  executed. 


User  Response:  Analyze  the  problem  to  determine  If  a solution  may  not  exlot, 

t.e. , a case  where  not  all  end  conditions  may  be  satisfied 
simultaneously.  If  this  appears  not  to  be  the  case,  then  the 
boundary  value  problem  must  be  altered.  For  example, 
selectively  remove  one  or  more  end  conditions  to  find  which 
oondltlon(s)  Is  causing  the  problem.  A sequence  of  cases 
may  then  be  designed  to  work  the  end  condition  toward  Its 
desired  value. 


20.  TOO  MANY  ITERATIONS  IN  SUBROUTINE  TBDP 


Subroutine:  TBDP 


Logical  Unit:  6 


Cause  or  Reason:  The  iterative  solution  to  Keplers  problem  did  not  converge  to 

the  prescribed  tolerance  within  20  iterations. 

System  Response:  Processing  continues  with  the  values  attained  on  the  last 

iteration. 


User  Response:  Probable  input  error.  Check  inputs. 


21.  TRAJECTCR  Y TERMINATED  IN  REFERENCE  OTHER  THAN  SUN  OR 
TARGET  PLANET.  RUN  TERMINATED  IN  SUBROUTINE  FNMAT. 


Subroutine:  FNMAT 

Logical  Unit:  'I 


Cause  or  Reason:  At  the  end  of  the  trajectory,  the  reference  body  ID  is  checked 

and  determined  to  be  other  than  the  sun  or  the  specified 
target  body. 


System  Response:  The  job  is  Immediately  terminated. 


User  Response:  Check  for  input  errors.  This  condition  is  unlikely  to  occur 

unless,  for  some  reason,  the  spacecraft  never  leaves  the 
reference  system  of  the  launch  body. 


22.  nn  TRAJECTORIES  WITHOUT  PARTIAL  DERIVATIVES  AND  nn  TRAJECTORIES 
WITH  PARTIAL  DERIVATIVES  REQUIRED  FOR  THIS  CASE 


Subroutine : 
Logical  Unit: 
Cause  or  Reason: 

System  Response: 
User  Response: 


MINMX3 

6 

This  message  is  printed  prior  to  executing  a return  from 
MINMX3  except  in  those  cases  where  an  error  condition  flag 
is  returned  from  TRAJL. 

Continues  processing. 

Follow  suggestions  given  for  companion  messages. 
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V. 


PROGRAM  STRUCTURE 


In  this  section,  several  tables  are  presented  which  represent  the  overall 
structure  of  ASTOP.  These  tables  are  particularly  useful  In  understanding  the 
organization  of  the  program  and  in  determining  the  basic  relationships  among  the 
various  subroutines,  labelled  commons  and  common  variables. 

ASTOP  is  comprised  of  39  sub-programs,  including  MAIN  and  BLOCK 
DATA.  There  are  no  Function  sub-programs  within  ASTOP.  Only  one  subroutine , 
DIAG1,  contains  a secondary  entry  point.  This  entry  point  is  named  SUMMRY. 

Since  neither  DIAG1  nor  SUMMRY  use  calling  arguments,  the  use  of  the  secondary 
entry  point  is  not  expected  to  require  modification  when  converting  to  other  machines. 
Subroutine  REMTIM  is  a dummy  routine  provided  for  use  on  systems  other  than  the 
IBM  computers  at  GSFC.  At  GSFC,  REMTIM  is  a library  subroutine  that  returns  to 
the  calling  program  the  time  remaining  for  the  job.  ASTOP  is  coded  to  use  this  in- 
formation to  avoid  "timing-out",  thereby  losing  valuable  information.  By  properly 
re-coding  REMTIM,  other  installations  may  find  it  possible  to  duplicate  this  useful 
feature. 

The  first  table  presented  displays  the  calling  sequence  of  the  program  sub- 
routines. This  "tree"  format  is  useful  in  determining  what  sequence  of  subroutine 
calls  may  be  invoked  when  a single  call  to  one  subroutine  is  made.  The  inverse  of 
this  information  is  presented  in  the  second  table.  Here,  for  each  subroutine,  is 
listed  all  other  subroutines  which  call  that  subroutine.  The  third  table  resembles 
the  second,  but  instead  lists  all  subroutines  that  contain  a specified  labelled 
common.  These  two  tables  are  listed  in  the  alphabetical  order  of  the  referenced 
subroutine  or  common  name.  Note  that  ASTOP  does  not  contain  an  unlabelled 
common. 

The  final  set  of  tables  are  particularly  useful  and  unique.  Each  of  the 
tables  represents  a specified  labelled  common  and  lists  each  variable  that  is 
referenced  somewhere  in  ASTOP.  For  each  variable  name  there  is  listed  the 
variable  type,  the  dimension  if  the  name  represents  an  array  (a  blank  denotes 


a non-dlmensloned  variable),  the  relative  address  (In  dectmal  bytes  from  the  start 
of  the  common),  and  the  names  of  the  subroutines  that  reference  the  variable  or 
array  by  the  name  specified.  Note  that  situations  where  the  same  location  Is  referenced 
by  different  names  In  different  subroutines  are  recognized  by  Instances  where  the 
relative  address  Is  Identical  for  two  different  names  and/or  dimensions.  If  a common 
block  contains  a named  variable  or  array  that  Is  not  referenced  In  ASTOP,  that 
variable  or  array  will  not  appear  In  these  tables. 


Subroutine  Calling  Seauence 


MAIN-r-  INPUT—  MODIF — LAMBRT — PDATE 


ITMAT  -r  MINMX3 


TRA  JL  — rA  MAINT— DERIV-r-TBDP—  SUBFG 


PMPRNTI 


SIMEQ 


FNPRNT-rTRAJL  (see  above) 


'SUMMRY* 


kREMTIM 


SETI 


RADII 

SOLENG  T FINDXB  — INT 
-AMAL 
-MTVT 
-MTMT 

SAMM — pDCUBIC 
DIAG1  '-SUBFG 
AMAL 
MTVT 


EPHEM-EPH 

RADII 


f-DERIV  (see  above) 


-MIIP1- 

•DETDT 


•ELCO 


ONTRL-rTBDP  — SUBFG 


A MAINT  (see  above) 


GENMA  jMIIPl 

IMT  L-PKIMA 


ELCO 


FNMAT — rlNT 


-SUMMRY* 


RADII 


DIAG1 


* ENTRY  POINTS 


f 

.1 


SUBROUTINE  CROSS  REFERENCE  TABLE 


NAME 
AMA I NT 
AMAL 
CONT RL 
OCUB  IC 
OERIV 
OETOT 
DIAGl 
EL  CO 
EPH 
EPHEM 
FINDXB 
FNMAT 
FNPRNT 
GENMA 
INIT 
INPUT 
I NT 
ITMAT 
LAMBRT 
MI  IP! 
MINMX3 
MOO  IF 
MTMT 
MTVT 
PDATE 
PMPRNT 
RAO  I I 
RECT 
REMT  IM 
SAMM 
SET  I 
SIMEQ 
SOLENG 
SUBFG 
SUMMRY 
TBDP 
TRAJL 
XYZ 


SUBROUTINES  REFERENCING  MEMBER 

CONTRL  TRAJL 

SET  I SOLFNG 

TRAJL 

SAMM 

AMAINT  TRAJL 
TRAJL 

FNMAT  SET  1 
M I IP  1 

EPHEM  FNMAT 

INIT 

SOLENG 

GENMA 

ITMAT 

CONTRL 

TRAJL 

MAIN 

CONTRL  DERIV  FINOXB  FNMAT 

MAIN 

MOOIF 

GENMA  TRAJL 
ITMAT 
INPUT 
SOLENG 

SET  I SOLENG 

LAMBRT 

MINMX3 

DERIV  FNMAT  RECT 

TRAJL 

TRAJL 

SET  I 

INIT 

MINMX3 

OERIV 

SAMM  TBDP 
FNPRNT  TRAJL 
CCNTRL  DERIV 
FNPRNT  MINMX3 
MINMX3 
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COMMON  CROSS  REFERENCE  TABLE 


NAME  SUBROUTINES  REFERENCING  MEMBER 


ALAN 

CONTRL 

DERI  V 

DETOT 

DIAG1 

h INDXB 

FNMAT 

3ENM  A 

INIT 

LAMBRT 

MI  IP1 

RECT 

SETI 

SOLENG 

TBDP 

TRAJL 

AMI 

AMAINT 

GENMA 

SET  I 

AMI 

AMAINT 

BLK  OT 

CCNTRL 

DLR1V 

DIAGI 

FNMAT 

GENMA 

MIIP1 

RECT 

SET  I 

SOLENG 

T BOP 

TRAJL 

CONRAD 

0 I AG  1 

FNMA  T 

CONVRT 

RECT 

SOLENG 

ENG 

GENMA 

SOLENG 

FNM 

BLK  OT 

FNMAT 

INPUT 

FRAN 

0LK  DT 

DIAG1 

INPUT 

MI  IP1 

RECT 

HENRY 

BLK  OT 

CCNTRL 

OEM  IV 

DETOT 

DIAGI 

ELCO 

EPHEM 

FINDXB 

FNMAT 

GENMA 

INIT 

I NPUT 

LAMBRT 

mi  iPi 

MOO  IF 

RECT 

SET  I 

SOLENG 

T BOP 

TRAJL 

HER 

BLK  DT 

CCNTRL 

OERIV 

DI  AG1 

FNMAT 

GENMA 

I NP  J T 

ITMAT 

M INMX3 

SET  I 

SOLENG 

TRAJL 

HIM 

INPUT 

ITMAT 

HIS 

BLK  DT 

CONTRL 

0IAG1 

FNMAT 

GENMA 

INIT 

1 NPUT 

ITMAT 

LAMBRT 

M INMX3 

SETl 

IEPH 

EPH 

EPHEM 

FNMAT 

ILEF 

CCNTRL 

DERI  V 

F IN  OX  B 

GENMA 

INPUT 

MI  IP1 

*ECT 

SET  I 

SOLENG 

TRAJL 

INPR 

BLK  OT 

O IAG  1 

INPUT 

INTEG 

BLK  OT 

CCNTRL 

OERIV 

DETOT 

0 I AG  1 

ELCO 

FINDXB 

FNM  AT 

FNPRNT 

GENMA 

INIT 

INPUT 

ITMAT 

^ AMS  RT 

MIIP1 

RECT 

SET  I 

SOLENG 

TRAJL 

JERR 

BLK  OT 

D 1 AG  1 

F INDX6 

FNMAT 

GENMA 

INIT 

I NP  J T 

LAMBRT 

SET  I 

SOLENG 

TRAJL 

JHW 

GENMA 

SET  I 

KAT 

D I AG  1 

INPUT 

M INMX3 

LAMB 

BLK  OT 

0 I AG  1 

EPH 

INPUT 

LAMBRT 

LEFT 

CONT RL 

DERI  V 

DETOT 

FINDXB 

FNMAT 

GENMA 

MUM 

MQOIF 

RECT 

SET  I 

SOLENG 

LEON 

BLK  DT 

DERI  V 

GENMA 

RECT 

TBDP 

TRAJL 

LPPR 

DIAGI 

INPUT 

MEL 

GENMA 

SET  I 

SOLFNG 

MINEPS 

INPUT 

MINMX3 

M I NS  EC 

BLK  OT 

INPUT 

TRAJL 

NOMLL 

DIAG1 

FNMAT 

GENMA 

SETI 

TRAJL 

NORM 

CONTRL 

OERI  V 

EPHEM 

F INOXB 

FNMAT 

INPUT 

: nt 

NORML 

EPHEM 

I NT 

NP  NT 

BLK  OT 

INPUT 

MINMX3 

OOBALL 

BLK  OT 

EPH 

INPUT 

PERAPS 

FNM  AT 

INPUT 

M INMX3 

RSCAL 

BLK  OT 

INPUT 

LAMBRT 

SETI 

SAML1 

SAMM 

SET  I 

ST  EVE 

CONTRL 

OERIV 

OETDT 

GENMA 

MOO  I F 

RECT 

TBDP 

TRAJL 

TBPR 

CONTRL 

MOOIF 

T BOP 

THAO 

SAMM 

SUDFG 

T BOP 

VPLLL 

GENMA 

LAMBRT 

SET  I 

XMMM 

BLK  OT 

FNMAT 

INPUT 

ITMAT 

MINMX3 

SETI 
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COMMON  VARIABL*  CROSS  REFERENCE  TABLE 


COMMON 

AMT 

LENGTH 

S 

VAR  TABLE 
NEON 

TYPE  DTM 

1*4 

AOOR 

0 

SUBROUTINE 
SET  I 
GENMA 
AMAINT 

-..-1 


f 


COMMON 

VAST  ASLF 

CROSS 

REFERENCE 

TABLE 

COMMON 

AMI 

LENGTH 

2264 

VARIABLE 

TVPF 

01  M 

AO  OR 

SUBROUTINE 

T 

R*8 

8 

AMA1NT 

BETA 

R*8 

8 

RECT 

TBOR 

OERIV 

DTI 

R *8 

16 

TBO° 

TRAJL 

CONTRL 

OELTI 

R*8 

1 6 

AMAINT 

XI 

R*8 

BO 

24 

RECT 

AMAINT 

XIL 

R*8 

80 

24 

SET  I 
DERIV 
DIAG1 
FNMAT 
GENMA 
MIIP1 
CONTRL 
SOLENG 

XID 

R *8 

80 

664 

RECT 

TRAJL 

AMAINT 

XI OL 

R*8 

80 

664 

SET  I 
OERIV 
GENMA 
MIIP1 
CONTRL 

02X1 

R*8 

80 

1304 

TRAJL 

AMAINT 

D2XIL 

R *8 

80 

1304 

DERIV 

GENMA 

MIIPl 

SOLENG 

IFST 

I** 

80 

1944 

AMAINT 

BLXDATA 

» 

\ 


1 


<4 


fl 


r i 
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i, 


‘ ' ' & 


- - TS 


-: vr 

jr 
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COMMON  VARIABLE  CROSS  REFERENCE  TABLE 


COMMON 

ENG 

LENGTH 

2240 

VARIABLE 

TYPF 

DIM 

ADOR 

SUBROUTINE 

SNAL 

P*fl 

20 

0 

GENMA 

SOLENG 

CSAL 

R *8 

20 

160 

GENMA 

SOLENG 

SNBET 

R*8 

20 

320 

GENMA 

SOLENG 

CSBET 

R *8 

20 

480 

GENMA 

SOLENG 

SNDL 

R*8 

20 

640 

GENMA 

SOLENG 

CSDL 

R*8 

20 

800 

GENMA 

SOLENG 

SNET 

R*8 

20 

96  0 

GENMA 

SOLENG 

CSET 

P*  & 

20 

1120 

GENMA 

SOLENG 

SNX 

9*8 

20 

1280 

GENMA 

SOLENG 

CSX 

9*8 

20 

1440 

GENMA 

SOLENG 

SNV 

9*8 

20 

1600 

GENMA 

SOLENG 

CSV 

R*8 

20 

1760 

GENMA 

SOLENG 

SNZ 

9*8 

20 

1920 

GENMA 

SOLENG 

csz 

9*8 

20 

208  0 

GENMA 

SOLENG 

COMMON  VARIABLE  CROSS  REFERENCE  TABLE 


COMMON  FNM  LENGTH  16 

VARIABLE  TYPE  01 M AOOR  SUBROUTINE 

PTA  R*8  0 FNMAT 

INPUT 

BLKOATA 

RTP  R*8  8 FNMAT 

INPUT 

BLKOATA 


COMMON  VARIABL*  CROSS  REFERENCE  TABLE 


COMMON 

HER 

LENGTH 

576 

VARIABLE 

TYPE 

DIM 

AODP 

SUBROUTINE 

IPS 

1*4 

0 

DIAG1 

FNMAT 

ITMAT 

MINMX3 

NDEP 

1*4 

0 

INPUT 

NSL 

1*4 

4 

SET  I 
0 I AG  I 
FNMAT 
GENMA 
ITMAT 
MINMX3 

NINO 

1*4 

4 

INPUT 

NSL1 

1*4 

8 

SET  I 
GENMA 

IFTRG 

1*4 

I 2 

SET  I 
INPUT 

IPOFL 

1*4 

30 

20 

DIAGI 

FNMAT 

INPUT 

IVAR 

1*4 

too 

140 

SET  I 
OIAGI 
FNMAT 
GENMA 
INPUT 
ITMAT 

ITMAX 

1*4 

54  0 

INPUT 

ITMAT 

8LKCATA 

NTP 

1*4 

54  4 

SET  I 
DERI  V 
GENMA 
CONTRL 

NTPS 

1*4 

54  8 

SET  I 
OIAGI 
GENMA 
INPUT 
CONTRL 
BLKDATA 

NMAX 

t *4 

552 

SOLENG 

BLKDATA 

NPWR 

1*4 

552 

INPUT 

NJ 

1*4 

556 

SET  I 
GENMA 

JN 

1*4 

560 

SET! 

GENMA 

IPAT 

1*4 

564 

GENMA 

TRAJL 

NCT1 

1*4 

568 

SET  I 

62 


COMMON 


HER  (CONTINUED) 


VARIABLE 

TVP? 

DIM 

ADOR 

SUBROUTINE 

ENMAT 

GENMA 

CONTRL 

SOLENG 

NJL 

1*4 

57  2 

SET! 

GENMA 

NVARV 

1*4 

572 

INPUT 

63 


COMMON  VARIABLE  CROSS  REFERENC”  TAOUe 


COMMON  HIM  LFNGTH 

VARIABLE  TYPE  OIM  AOOR 

YCON  R*fl  30  0 


240 

SUBROUTINE 

INPUT 

ITMAT 


COMMON  VARIABLE  CROSS  REFERENCE  TABLE 


iJ 


i i 

! i 


I 


COMMON 

HI  S 

LFNGTH 

10056 

\ 

VARIABLE 

TYPE 

OIM 

ADOR 

SUBROUTINE 

REG 

R*0 

30.30 

0 

OIAGI 

PNMAT 

M1NMX3 

NX 

REB 

30 

7200 

INPUT 

MINMX3 

XV  AR 

RES 

30 

74*  0 

SETT 

GENMA 

t ' 

t 

INPUT 

/* 

VEPS 

R*8 

30 

768  0 

INPUT 

ITMAT 

MINMX3 

XEPS 

REfl 

. 3 

792  0 

INPUT 

MINMX3 

CHNS 

R *8 

100 

616  0 

SETI 

OIAGt 

LAMBRT 

CHN 

RE8 

too 

896  0 

INIT 

SET! 

• 

DIAGt 

ENMAT 

GENUA 

INPUT 

ITMAT 

* -- 

CONTRL 

LAMBRT 

i 

BLKDATA 

POPL 

R*8 

30 

976  0 

0IAG1 

ENMAT 

XDAR 

RES 

T 

toooo 

INPUT 

BLKDATA 

XDDR 

RES 

7 

1000  0 

GENMA 

$5 


COMMON  VARIA8LF  CROSS  REFERENCE  TABLE 


COMMON 

JHW 

LENGTH 

VARIABLE 

TYPE 

OIM 

AOPR 

PYI 

R*3 

7.7 

0 

CPM 

R*8 

7.30 

392 

20  T2 

SUBROUTINE 

SET! 

GENMA 

GEW'A 


% >1 

r 

i 

. i 

i 

1 

' 

tl 

. COMMON 

VARIABLE 

CROSS 

REFERENCE 

TABLE 

* 

% \ 



COMMON 

KAT 

LENGTH 

16 

! 

VARIABLE 

TYPE 

DIM 

ADDR 

SUBROUTINE 

i! 

LAMBDA 

R*ft 

0 

MINMX3 

XAM80A 

R*8 

0 

DIAGI 

\ ^ 

i 

INPUT 

i 

•COUNT 

I #4 

8 

DIAGI 

M1NMX3 

L 

1*4 

1 2 

MINMX3 

r 

fc 

i 

i 

.J 

- i 

- 

•-  , I ' ■ 

C.- ! 


i 


, | 

M 

ll 


f] 

n 

il 


:i 


COMMON  VARIABLE  CROSS  REFERENCE  TABLE 


COMMON 

MEL 

LFNGTH 

4 

variable 

I SOL 

TYPE  OIM 

1*4 

ADDR 

0 

SUBROUTINE 

SET! 

6ENMA 

SOLENG 

.COMMON 

VAP?  A8LF 

CROSS 

REFERENCE 

TABLE 

COMMON 

A LAN 

LENGTH 

24 

VARIABLE 

T 

TYPC 

R*8 

DIM 

ADDR 

0 

SUBROUTINE 

RECT 

TBOP 
DERI  V 
CETDT 
DIAG1 
FNMAT 
TRAJL 
CONTRL 
FIN0X9 


TBET 

R*8 

0 

SET  I 
MIIPI 

LAMBRT 

RHBR 

R*8 

8 

SET  I 

DERI  V 
GENMA 
TPAJL 
CONTRL 
SOLENG 

DOR  HO  R*>8  16  OERIV 

GENMA 

TRAJL 


COMMON  VARIABLE  CROSS  REFERENCE  TABLE 


COMMON 

FPAN 

LENGTH 

8 

VAR IABLE 
XMDKM 

TYP*  DIM 

P*8 

AOOR 

0 

SUBROUTINE 
RECT 
OIAGI 
I NPUT 
MIIP1 
BLKOATA 

70 


.COMMON 

VAR  I ABLE 

CROSS 

RFFE PENCE 

TABLE 

COMMON 

JFPH 

LENGTH 

4 

IABLE 

TYPE 

DIM 

ADDR 

SUBROUTINE 

NC 

1*4 

0 

EPH 

EPHEM 

NCLL 

1*4 

0 

FNMAT 

^ \ 


v COMMON  VARIABLE  CROSS  RFFFRFNCE  TABLE 

k * 


COMMON 

TLEF 

LENGTH 

68 

1 * 

\ 

VARIABLE 

NEOL 

type  dim 

I 44 

ADOR 

0 

SUBROUTINE 

RECT 

i 

■;*  >. 

SET  I 
OERIV 
GENMA 
MI  IP| 

CONTRL 

NON 

1*4 

6 

SOLENG 

RFCT 

SET! 

OERIV 

.V 

GENMA 

MIIPI 

N0P6S 

1*4 

! 2 

SOLENG 

SETt 

GENMA 

INPUT 

' 

N0P64 

1*4 

44 

SOLENG 

INPUT 

\ 

N0P63 

1*4 

48 

EINOXB 

INPUT 

*.<■ 

NS 

1*4 

52 

EINOXB 
SET  I 

► i 

Tk 

! 

N4 

1*4 

56 

GENMA 
SET  I 

i 

i 1 

1 
| 

NS1 

1*4 

60 

GENMA 
SET  I 

' j 

i 

NJJ 

1*4 

64 

GENMA 

GENMA 

TRAJL 

•COMMON  VARIABLE  CROSS  REFERENCE  TABLE 


COMMON 

I NPR 

LENGTH 

4320 

VARIABLE 

ARCDTA 

TYPF 

R*8 

DIM 

7,20 

ADOR 

0 

SUBROUTINE 
D!  AG! 

BX 

R*8 

4,100 

1120 

INPUT 
BLKDATA 
I NPUT 

BLKDATA 


73 


COMMON  VARIABLE  CROSS  REFERENCE  TABLE 


COMMON 

JFRR 

LENS  TH 

4544 

variable 

TYPE 

DIM 

ADDR 

SUBROUTINE 

VBL 

R*a 

568 

0 

BLKDATA 

VBL3C 

R*fl 

200 

0 

GENMA 

SOLENG 

A 

R*8 

1600 

INPUT 

SOLENG 

CA 

P*8 

1608 

OIAG1 

INPUT 

SOLENG 

BL 

R *8 

1616 

0IAG1 

FNMAT 

INPUT 

SOLENG 

OSO 

R*8 

1624 

DIAG1 

INPUT 

SOLENG 

OELP 

R*8 

1632 

OIAG1 

INPUT 

SOLENG 

AO 

R*8 

1 0 

1640 

INPUT 

SOLENG 

XKS 

R *8 

1728 

INPUT 

SOLENG 

ETV 

R*8 

3 

1736 

INIT 

SOLENG 

ET 

R*8 

3 

1760 

SOLENG 

XKP 

R*8 

1784 

OIAG1 

INPUT 

ER 

R*8 

3 

1792 

OIAG1 

INPUT 

FINOXB 

SOLENG 

CPI 

R*8 

7 *30 

1816 

SET  I 
FNMAT 
GENMA 
TPAUL 

TBIN 

R*8 

122 

34  96 

SET  I 
FNMAT 
GENMA 
INPUT 
SOLENG 

ETA 

R*8 

4472 

OIAGI 

FNMAT 

SOLENG 

CR 

R*8 

448  0 

OIAGI 

FNMAT 

INPUT 

XKR 

R*8 

4488 

OIAGI 

FNMAT 

74 


**  “>”A* 


.COMMON 


JPRR  (CONTINUED) 


VARIABLE 

TY  PF 

DIM 

ADDR 

SUBROUTINE 

INPUT 

XKT 

R*3 

4496 

DIAGI 

PNMAT 

INPUT 

XKST 

P*8 

4504 

DIAGI 

PNMAT 

INPUT 

A»S 

R*6 

451  2 

DIAGI 

PNMAT 

INPUT 

ALI 

R ♦ 8 

4520 

SET1 

DIAGI 

INPUT 

LAMBRT 

AL2 

R *8 

452  8 

SETT 

DIAGI 

PNMAT 

INPUT 

LAMBRT 

AL3 

R*ft 

453  6 

SETI 

DIAGI 

PNMAT 

INPUT 

LAMBRT 

I 

! 

I 


COMMON  VARIABLE  CROSS  REFERENCE  TABLE 


! 

! 


COMMON  LAMB  LENGTH  20 


VARIABLE 

TYPE 

DIM 

AODR 

SUBROUTINE 

XJLO 

R*8 

0 

EPH 

OIAGI 

INPUT 

LAMBRT 

BLKDATA 

RBRE 

R*B 

1 6 

I NPUT 
BLKDATA 

i 

! 


COMMON  VARIABLE  CROSS  REFERENCE  TABLE 


. COMMON 

L'TT 

LENGTH 

134  40 

variable 

TYPE 

DIM 

AOOR 

SU3ROUTII 

XRL 

R*8 

6.20 

0 

RECT 
SET  I 
DERI  V 
OETOT 
ENMAT 
GENMA 
MIIP1 
CONTRL 

XRDL 

R*8 

6.20 

960 

RECT 
SET  I 
DERIV 
ENMAT 
GENMA 
MIIP1 
CCNTRL 
FINOXB 

VCOL 

R*Q 

72.20 

1920 

DERIV 
Ml  I PI 
MOD  IE 
CONTRL 
EINDX9 
SOLENG 

I 


77 


sT i 


COMMON  VAR  I ABLE  CROSS  REFERENCE  TABLE 


COMMON 

LEON 

LENS  TH 

1 12 

VARIABLE 

TYPE 

DIM 

ADOR 

SUBROUTINE 

XRO 

R*B 

6 

0 

T80*» 

OERIV 

GENMA 

TPAJL 

XRODT 

R*8 

6 

48 

TBOP 

OERIV 

TMPOP 

R*8 

96 

RECT 

TBOP 

COMMON 

VARIABLE 

CROSS 

REFERENCE 

TABLE 

COMMON 

lppr 

length 

4 

j i 

VARIABLE 

ICT 

ITC 

TYPE 
1*4 
f *4 

OTM 

AOOR 

0 

0 

SUBROUTINE 
0 1 AG! 
INPUT 

i 

I 

1 

1 

I 

i, 


COMMON  VARIABLE  CROSS  REFERENCE  TABLE 


COMMON 

NORM 

LENGTH 

104 

VARIABLE 

TY^E 

OI M 

ADDR 

SUBROUTINE 

TRFF 

R*8 

0 

I NT 
EPHEM 

OLEPH 

R*8 

6 

DERI  V 
FPHEM 

fnmat 

INPUT 

CONTRL 

FINDXB 

ITBL 

1*4 

22 

l 6 

DERI  V 

EPHEM 

FNMAT 

CONTRL 

FINDXB 


COMMON  VARIABLE  CROSS  REFERENCE  TABLE 


COMMON 

NPNT 

LENGTH 

4 

VARIABLE 

NPR 

TYPF  01 M 

1*4 

AODR 

0 

SUBROUTINE 

INPUT 

MINMX3 

8LKOAT* 

81 


COMMON  VARIABLE  CROSS  REFERENCE  TABLE 


COMMON 

TBPR 

LENGTH 

4 

ife  » 

VARIABLE 
I T9 

TYPE  DIM 

!*♦ 

AOOR 

0 

SUBROUTINE 
TBDP 
MOD  IF 
CONTRL 

Lr-J 


COMMON  VARIABLE  CROSS  REFERENCE  TABLE 


COMMON  THAO  LFNGTH  136 


VARIABLE 

TYPE 

OIM 

ADOR 

SUBROUTINE 

BE TAM 1 

R*8 

0 

SIMM 

TBCP 

SUBFG 

GGO 

R*0 

8 

T80P 

GGO 

R*8 

8 

SAMM 

SUBFG 

Gt 

R*8 

16 

SAMM 

TBOP 

SUBFG 

G2 

R*8 

24 

SAMM 

TBOP 

SUBFG 

G3 

R*8 

32 

SAMM 

TBOP 

SUBFG 

G4 

R*8 

40 

SAMM 

SUBFG 

GS 

R*8 

48 

SAMM 

SUBFG 

FO 

R*8 

72 

SUBFG 

FI 

9*8 

80 

SUBFG 

F2 

9*8 

88 

SUB^G 

F3 

9*8 

96 

SUBFG 

F4 

9*8 

1 04 

SUBFG 

FS 

9*8 

1 I 2 

SUBFG 

COMMON  VARIABLE  CROSS  PEFEPENC E TABLE 


COMMON 

XMMM 

LENGTH 

972 

P TABLE 

TYPE 

DIM 

ADDR 

SUBPOUT!  NE 

B 

R*B 

120 

0 

BLKDATA 

a 

p*a 

30 

0 

SET! 

ITMAT 

MTNMX3 

Q 

R*8 

30 

24  0 

fnmat 

MINMX3 

QM  IN 

R*8 

30 

48  0 

ITMAT 

MINMX3 

QMAX 

R*8 

30 

720 

ITMAT 

MINMX3 

WTOPT 

R + 8 

96  0 

INPUT 

MINMX3 

BLKOATA 

MOPTM 

1*4 

968 

INPUT 

MINMX3 

COMMON 

COMMON 

VARIABLE 

ARRAY 

CHINO 

INTV 

IN  IX 
XN1X 

IN2X 

XN2X 

KSQQ 

XSOQ 

KM 

MOIST 

XOIST 

ME  I 

ME 

POSRCS 

PRVOT 

POT 


VARIABLE  CROSS  REFERENCE  TABLE 


HENRY 

LENGTH 

3472 

TYPE 
R*8  B, 

DIM 

3.12 

ADOR 

0 

SUBROUTINE 

OETDT 

INPUT 

R*8 

2304 

BLKOATA 

INIT 

OETOT 

R*8 

72 

2312 

TRAJL 

INIT 

R*8 

R*8 

3 

3 

288  8 
2888 

DFRIV 

CONTPL 

FNMAT 

R*8 
R *8 

3 

3 

2912 

2912 

findxb 

CONTRL 

FNMAT 

R*8 

12 

2936 

pINDXB 

RECT 

INPUT 

MIIP1 

CONTRL 

R*8 

12 

2936 

BLKOATA 

SETI 

DIAG1 

R*8 

12 

3032 

FNMAT 

INIT 

RECT 

R*8 

3128 

DERI  V 
ELCO 
OERIV 

CONTRL 

R*8 

3128 

BLKOATA 

EPHEM 

R*8 

GENMA 

findxb 

SOLENG 

12 

31  36 

INIT 
MOD  IF 

R*8 

CONTRL 

BLKOATA 

12 

3232 

INIT 

RECT 

R*8 

MOO  IF 
CONTRL 

3328 

INPUT 

R*8 

CONTRL 

BLKOATA 

3336 

INIT 

OERIV 

R*8 

334  4 

INIT 

OETOT 

85 


I 


COMMON  HpNP V (CONTINUED) 


variable 

TYPE 

DIM 

AOOR 

SUBROUTINE 

PC  IN 

R*8 

3352 

INIT 

PETOT 

RO 

R*8 

3360 

ELCO 
OIAGI 
*NMAT 
I NPUT 
BLKDATA 

REKM 

R*8 

3368 

ELCO 

RECT 
DI  AG1 
EPHEM 
INPUT 
MII»1 
BLKDATA 


RRM 

R*a 

3376 

MOD  IF 
CONTRL 
BLKDATA 

RRE 

R AS 

3384 

INPUT 

CONTRL 

BLKDATA 

RREU 

R*8 

3392 

CONTRL 

BLKOATA 

RCINO 

R*8 

3400 

DERIV 

TRAJL 

RATIO 

R*8 

34  08 

PECT 

CONTRL 

TSCL 

R*8 

3424 

OIAGI 
INPUT 
MI  IP! 
BLKDATA 

THTS 

R*8 

3432 

INPUT 

CONTRL 

BLKDATA 

TP1 

R*8 

344  0 

INIT 
SET  I 
CONTRL 

I , 

j;-., 

TIMEL 

R*8 

3448 

EPHEM 

INPUT 

BLKDATA 

THET 

R*8 

3456 

ELCO 

TBDP 

DERIV 

CONTRL 

1 

« 

VELRCS 

R*8 

3464 

INPUT 

CONTRL  -• 

BLKDATA 

1 

1 

I 
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• COMMON  VARIABLE  C»OS5  PEFERENCE  TABLE 


COMMON  INTEG 


LFNGTH 


340 


AR I ABLE 

TYPE 

DIM 

ADD  R 

SUBROUTINE 

DAT 

1*4 

0 

LAMBRT 

YEAR 

1*4 

B 

LAMBPT 

’DUMMY 

1*4 

1 2 

INIT 

RECT 

CONTRL 

ITRIG 

1*4 

16 

INtT 

TRAJL 

CONTRL 

IREFNO 

1*4 

20 

ELCO 

INIT 

RECT 
SET  I 
DERI  V 
DETOT 
DtAGl 
FNMAT 
GENMA 
Mliot 
CONTRL 
FINDX9 
SOLENG 
BLKDATA 


IREPNB 

1*4 

24 

INIT 

0IAG1 

INPUT 

BLKDATA 

IREFNT 

1*4 

28 

DIAG1 

FNMAT 

INPUT 

BLKDATA 

IN 

1*4 

32 

INPUT 

BLKDATA 

10 

1*4 

36 

ELCO 
RECT 
DETOT 
DtAGl 
INPUT 
ITMAT 
MI  IP! 
TRAJL 
BLKDATA 

IJK 

1*4 

40 

FNMAT 

GENMA 

CONTRL 

FINDX9 

MONTH 

1*4 

44 

LAMBRT 

NOPT 

1*4 

72 

52 

ELCO 

RECT 


87 


V 


COMMON  VARIABLE  CROSS  REFERENCE  TABLE 


COMMON 

NOMLL 

LENGTH 

4 

VARIABLE 

NOMT 

TYPE  DIM 

1*4 

ADDR 

0 

SUBROUTINE 
SET  I 
OIAG1 
FNMAT 
GENMA 
TPAJL 

COMMON  VARIABLE  CROSS  REFERENCE  TABLE 


COMMON 

NORML 

LENGTH 

96000 

VARIABLE 

TYPE  01 M 

ADOR 

SUBROUTINE 

TBBL 

R*6  12000 

0 

INT 

EPHEM 

COMMON  VARIABLE  CROSS  REFERENCE  TABLE 


COMMON 

RSCAL 

LENGTH 

80 

VARIABLE 

RL° 

TYPE 
R*  A 

DIM 

ADDR 

0 

SUBROUTINE 

SET? 

LAMBRT 

BLKDATA 

9PHAT 

R*8 

3 

B 

SET  I 
LAMBRT 

HCR 

R*8 

3 

32 

SET  I 

ROPML 

R*B 

3 

56 

SET  I 
LAM8RT 

COMMON  VARIABL®  CROSS  REFERENCE  TABLE 


COMMON 

SAMLI 

LENGTH 

400 

VARIABLE 

TYPE 

L!M 

ADDR 

SUBROUTINE 

ROTB 

R48 

3 

0 

SAMM 

RODTB 

R*ft 

3 

24 

SAMM 

RTB 

R*B 

3 

48 

SAMM 

ROTB 

R*B 

3 

72 

SAMM 

A I J 

R*8 

3*3 

96 

SAMM 

SETT 

B 1 J 

R*S 

3*3 

168 

SAMM 
SET  I 

CtJ 

R*B 

3.3 

240 

SAMM 

SETI 

DIJ 

K*B 

3*3 

312 

SAMM 

SETI 

OlAO 

R*B 

384 

SAMM 

XMU 

R*8 

392 

SAMM 

SETI 

COMMON  VARIABLE  CROSS  REFERENCE  TABLE 


COMMON 

STEVc 

LFNGTH 

If? 

VARIABLE 

TV  Pt 

OIM 

ADOR 

SUBROUTINE 

TEL  * 

R*8 

0 

RECT 
OETOT 
MOO  IF 
TRAJL 

KSQ 

r** 

8 

RECf 

CONTRL 

XSO 

R*8 

6 

TBOP 

OERIV 

GENMA 

TRAJL 

1AD 

R*8 

16 

RPCT 

TBOP 

RDOTD 

R*R 

24 

RECT 

TBOP 

T! 

R*e 

32 

RECT 

TBOP 

CONTRL 

TM20P 

R *8 

40 

RECT 

TBOP 

XRI 

R*8 

6 

48 

RECT 

TBOP 

OERIV 

XRIOT 

R*8 

f 

96 

RECT 

TBOP 

OERIV 

SOT  MU 

R*8 

144 

RECT 

TBOP 

OERIV 

COMMON  VARIABLE  CROSS  REFERENCE  TABLE 


COMMON 

VPLLL 

LENGTH 

16 

I ABLE 

TYP*r  DIM 

AOOR 

SUBROUTINE 

VPOO 

R*8 

0 

SET  I 
LAMBRT 

ITD 

1*4 

8 

SETI 

GENMA 

ITOi 

1*4 

t 2 

SETI 

GENMA 

COMMON 

VAR  I ABLE 

CROSS 

REFERENCE 

COMMON 

CONPAO 

LENGTH 

VARIABLE 

TYPE 

DIM 

ADOR 

VTP 

R*B 

0 

VORB  • 

R*8 

0 

DELV 

RT8 

B 

DELVEL 

R*8 

8 

VPA 

R*e 

16 

VTP 

R*8 

16 

TABLE 


24 

SUBROUTINE 

FNMAT 

DIAG1 

FNMAT 

DIAG1 

FNMAT 

niAGt 


COMMON 

VAR  I ABLE 

CROSS 

REFERENCE 

TABLE 

COMMON 

CDNVRT 

LFNGTH 

16 

VARIABLE 

APSCON 

TYPF 

R*8 

DIM 

ADDR 

0 

SUBROUTINE 

RECT 

SOLENG 


96 


COMMON  VAPIAPL"  CROSS  RFFFRENCc  TABLE 


COMMON 

VARIABLE 

EPS 


MINFPS 

LENGTH 

240 

TYPF 

DIM 

AOOR 

SUBROUTINE 

R*8 

SO 

0 

INPUT 

MINMX3 

COMMON 

VARIABLE 

CROSS 

REFERENCE 

TABLE 

COMMON 

MIN  SE  C 

LENGTH 

4 

VARIABLE 

ITF 

TYPF 

1*4 

DIM 

ADOR 

0 

s. 

SUBROUTINE 
I NP’JT 
TRAJL 
8LK0AT4 

\ 


98 


COMMON  VARIABLE  CROSS  REFERENCE  TABLE 


COMMON 

OrBALL 

VARIABLE 

SAI 

TYPE 

R*8 

EC  I 

R*8 

CNI 

R*8 

OMl 

R*8 

SOI 

R48 

TPI 

R*8 

EMUDD 

R*8 

LENGTH 

64 

AODR 

SUBROUTINE 

0 

EPH 

INPUT 

BLKDATA 

8 

EPH 

INPUT 

I 6 

EPH 

INPUT 

24 

EPH 

INPUT 

32 

EPH 

INPUT 

40 

EPH 

INPUT 

48 

EPH 

INPUT 

COMMON  VARIABLE  CROSS  REFERENCE  TABLE 


COMMON 

PERAPS 

LENGTH 

52 

VARIABLE 

TYPE 

DIM 

AODR 

SUBROUTINE 

ROOT 

R *8 

3 

0 

FNMAT 

MINMX3 

RM 

R*8 

24 

INPUT 

MINMX3 

RP 

R*8 

32 

INPUT 

MINMX3 

EMU 

R*8 

40 

INPUT 

MTNMX3 

I PER 

1*4 

48 

INPUT 
MI NMX3 

VI.  SUBROUTINE  DESCRIPTIONS 


In  this  section  are  presented  detailed  descriptions  of  every  subroutine  of 
the  ASTOP  program.  The  descriptions  are  given  In  alphabetic  order  of  the  sub- 
routine name.  Entry  points  are  not  described  separately,  but  are  Included  In  the 
description  of  the  primary  subroutine.  Each  description  Is  comprised  of  the  follow- 
ing sections: 

1)  Name  of  subroutine. 

2)  List  of  calling  arguments. 

3)  List  of  sub-programs  referenced  by  the  subroutine  being  described. 

4)  List  of  commons  referenced  by  the  subroutine. 

5) '  Entry  points  In  the  subroutine. 

6)  List  of  sub-programs  referencing  the  subroutine  being  described. 

7)  Detailed  discussion  of  pertinent  equations  and  logic. 

8)  Description  of  printout  and  messages  generated  by  the  subroutine. 

9)  List  of  any  documents  referenced  In  the  Discussion. 

10)  Table  of  external  variables  used  by  the  subroutine. 

11)  Detailed  flow  chart. 

Items  8 and  9 are  Included  If  applicable. 

The  table  of  external  variables  Include  for  each  variable  listed  the  Fortran 
name,  the  use  of  the  variable,  the  name  of  the  common  array,  if  any,  In  which  the 
variable  appears,  and  a definition  of  the  variable.  The  variables  Included  In  this 
table  Include  only  those  referenced  within  the  subroutine  which  are  available  for 
use  In  other  routines;  e.g. , common  variables  or  variables  contained  In  argument 
lists.  Temporary  variables  which  are  evaluated  In,  and  not  transmitted  out  of, 
the  subroutine  are  not  listed.  For  any  array  Included  In  the  table,  the  dimension  of 
the  array  Is  enclosed  In  parentheses  beside  the  Fortran  name.  The  use  of  the  variable 


Is  indicated  by  one  cr  more  of  six  alphabetic  codes,  which  are  defined  as  follows: 

A - the  variable  appears  in  the  argument  list  of  a sub-program  called 
by  the  subroutine. 

E - the  variable  is  equivalenced  to  a common  variable;  the  name  of  the 
common  variable  Is  enclosed  in  parentheses  under  the  name  of  the 
common. 

R - the  variable  is  a program  input  variable;  this  code  appears  only  In 
the  description  of  subroutine  INPUT. 

S - the  value  of  the  variable  Is  changed  and  stored  within  the  subroutine. 

U - the  value  of  the  variable  Is  used  within  the  subroutine;  l.e. , the 
variable  name  appears  on  the  right  hand  side  of  an  equation  or  In 
an  IF  test. 

X - the  variable  name  appears  In  the  argument  list  of  the  subroutine. 

If  the  variable  represents  a variable  used  In  the  Discussion  section  of  the  subroutine 
description,  the  mathematical  symbol  of  the  variable  Is  Included  In  the  definition  of 
the  variable. 

The  flow  charts  Included  In  the  subroutine  description  were  prepared  by  the 
proprietary  system  Autoflow-n  at  the  Goddard  Space  Flight  Center.  These  charts 
are  arranged  such  that  the  logic  flow  proceeds  down  each  column  and  continues  at 
the  top  of  the  next  column  to  the  right.  Usually  3 or  4 columns  will  comprise  a 
page.  Each  page  Is  numbered  In  the  upper  right  hand  corner.  Within  each  column 
there  normally  will  exist  several  blocks  of  code.  These  blocks  are  numbered 
sequentially  from  01  through  the  logic  on  each  page.  Thus,  any  specific  block 
of  code  Is  Identified  by  a page  number  and  block  number.  The  block  number  appear? 
at  the  upper  right  of  a block.  A number  shown  at  the  upper  left  of  a block  Is  the 
statement  number  appearing  In  the  subroutine  listing.  A transfer  to  a remote  block 
ts  usually  Indicated  by  a circle  with  a number  of  form  xxx.yy  Inscribed. 
Occasionally,  the  number  In  the  circle  appears  with  xxx  directly  above  yy.  In 
either  case,  xxx  represents  the  page  number  and  yy  denotes  the  block  number  on 
that  page  to  which  control  Is  transferred.  At  the  end  of  each  page,  except  the  last, 
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a transfer  to  the  top  of  the  next  page  Is  indicated  with  the  symbol  / xxx.  yy.  At 
the  point  to  which  the  transfer  occurs,  a horizontal  arrow  is  shown  entering  the 
logic  flow  with  a number  to  the  left  defining  the  page  and  block  number  from  which 
the  transfer  took  place.  A standard  convention  is  employed  to  indicate  selected 
operations.  For  example,  a diamond  denotes  an  IF  test,  algebraic  code  is  enclosed 
In  rectangles,  a rectangle  Inscribed  in  another  rectangle  denotes  the  start  of  a DO 
loop  or  a CONTINUE  statement,  and  a rectangle  with  a border  on  both  sides  denotes 
the  call  of  a subroutine.  Within  the  left  border  on  a call  to  a subroutine  is  the  page 
and  block  number  of  the  start  of  that  routine.  The  last  page(s)  of  the  flow  chart 
contains  a listing  of  the  non-executable  statements  in  the  subroutine.  These  state- 
ments include  type,  dimension, common,  equivalence,  data  and  format  statements. 
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Name: 


AMAINT 


Calling  Arguments: 
Referenced  Sub-programs: 
Referenced  Commons: 
Entry  Points; 

Referencing  Sub-programs: 


INDS 

DER1V 


AMI,  AMI 
None 

CONTRL,  TRAJL 


Discussion:  This  subroutine  performs  the  numerical  integration  of  a set  of  second 
order  differential  equations.  The  solution  consists  of  the  first  and  second  Integrals 
of  the  second  derivatives.  The  current  second  derivatives  are  stored  in  the  array 
D2X1,  the  first  derivatives  are  placed  in  XID,  and  the  Integrated  variables  are  in 
XI.  Each  of  these  arrays  are  dimensioned  80  which  represents  the  maximum 
number  of  equations  that  may  be  integrated.  The  actual  number  of  equations  being 
Integrated  is  specified  through  the  common  variable  NEQN.  If  a subset  of  the  equa- 
tions to  be  integrated  are  first  order  differential  equations,  the  solutions  to  this 
subset  are  efficiently  obtained  by  avoiding  the  evaluation  of  the  second  Integral. 

Only  the  first  Integral  is  obtained  and  stored  in  the  appropriate  elements  of  XID 
and  also  In  the  corresponding  elements  of  XI.  Whether  a specific  equation  is  to 
be  treated  as  a first  or  second  order  differential  equation  is  Indicated  v.Un  the 
common  variable  array  IFST,  which  is  also  dimensioned  80.  A value  of  zero  In 
a specific  element  of  IFST  Indicates  that  the  corresponding  element  of  D2XI  is  to 
be  treated  as  a second  derivative,  and  a first  and  second  Integral  are  to  be  evaluated. 
A non-zero  value,  however,  indicates  that  the  corresponding  element  of  D2XI  is  to 
be  treated  as  a first  derivative,  and  only  a first  integral  is  to  be  evaluated  and 
stored  In  both  XID  and  XI. 

The  differential  equations  are  integrated  using  standard,  sixth-order  back- 
ward-difference predictor  formulas.  This  technique  requires  that  a table  of 
second  derivatives  be  maintained  for  the  current  time  and  the  preceding  six  inte- 
gration points  for  each  variable  to  be  Integrated.  Let  the  vector  of  variables  to 
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be  Integrated  be  denoted  X,  with  its  first  and  second  derivatives  being  X and  X. 
Then  denote 

X j = X(tj);  1 = 1, — ,7 

as  the  tabular  values  of  the  second  derivatives  at  the  integration  times  t^,  where 


and  h is  the  constant  Integration  Interval.  Also,  let  decreasing  values  of  the 
subscript  l represent  the  more  recent  integration  points  such  that  tl  Is  the 
current  time,  t^  is  the  preceding  Integration  point,  etr.  The  values  of  X and 
X at  previous  points  are  not  required,  but  are  available  at  the  current  time  t^. 
The  problem  is  to  evaluate  X and  X for  the  time  t^  + h.  The  formulas  for  this 
purpose  are 

X(t1+h)  = X(tl)  + h[x(tl)+|s2] 

X(t1+h)=X(t1)+  l sx 

where  S and  S are  two  vectors  of  dimension  NEQN,  defined  as  fellows: 

1.  2 ? 7 

W VitVi 

1*1  1-1 

and  k,  0^  and  are  a set  of  constants  which  may  be  derived  from  the  sti 
backward  difference  formulas.  The  values  of  these  constants  are 

k = 60480 


l 

“l 

1 

198721 

139849 

2 

-447288 

-243594 

3 

705549 

369399 

4 

-688256 

-354188 

S 

407139 

207495 

6 

-134472 

- 68106 

7 

19087 

9625 

Once  the  integration  to  time  ^ + h is  completed,  the  derivative  routine  DERIV 
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Is  called  to  evaluate  X(t  -r  h).  The  tabular  second  derivatives  are  then  shifted 
• • A ••  •• 

such  that  X,  . Is  placed  In  X for  l = 7-2,  sequentially, and  X(t.  + h)  Is  placed 

In  X^.  The  table  is  then  ready  for  the  next  Integration  step. 


The  use  of  this  numerical  Integration  technique  requires  the  availability 
of  the  second  derivatives  for  the  previous  six  Integration  points.  Obviously,  some 
other  method  Is  required  to  In'ttally  construct  this  table.  Additionally,  the  above 
algorithm  assumes  continuity  In  X and  X over  the  Interval  t?  to  t^  + h.  If 
this  assumption  of  continuity  Is  viol  ;d,  It  is  necessary  to  discard  the  tables  In 
use  up  to  the  point  of  discontinuity  and  once  again  construct  the  table  to  restart  the 
algorithm.  For  the  purpose  of  developing  the  new  table,  this  subroutine  also  con- 
tains a fourth-order  Runge-Kutta  (R-K)  Integrator.  The  accuracy  required  by  the 
backwards  difference  Integrator  Is  maintained  by  the  R-K  Integrator  by  using  an 
Integration  Interval  h'  equal  to  one  quarter  of  the  standard  Interval  h.  The  pro- 
cedure Is  to  take  six  Integration  steps  of  length  h'  uf  \ the  R-K  Integrator.  The 
original  second  derivatives  at  the  initial  time  (or  the  time  of  a discontinuity  i and 

the  derivatives  at  the  end  of  the  six  steps  are  loaded  into  a special  derivative  array, 
• • 

Xj'.  This  table  Is  then  employed  by  the  backward  difference  Integrator  to  Integrate 

eighteen  additional  steps  of  length  h*.  At  the  end  of  each  fourth  step,  the  fourth 

• « 

derivatives  are  also  loaded  Into  the  array  X(  such  that,  at  the  end  of  the  24  steps 
of  length  h',  the  complete  table  of  second  derivatives  for  an  Integration  Interval 
of  h Is  available.  The  Integration  Interval  then  continues  at  the  normal  Interval. 

It  should  be  noted  that  only  one  step  of  Interval  h'  Is  executed  on  a single  call  to 
AMAINT.  A set  of  counters  are  maintained  so  that  the  switch  from  R-K  to  the 
backward  difference  formulas  Is  automatic. 


The  equations  for  the  fourth-order  Runge-Kutta  Integration  of  second 
order  differential  equations  are  as  follows: 


Kj  *" h'XCtj,  X(tx),  X^)] 

Kg  ■ h,X[tj+‘j-,X(t1)+h'  (£(1^/2 + 1^/8),  Xd^+I^/2] 
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K3  = h'  X [*1  + ~ , X(tx)  + h'  (X  (tx)/2  + K^X  (tx)  + K2/2 ] 
K4=h»X[t1+h‘,  Xty  + h'tXty+K^),  X(tx)  +Kg] 

X(tx  +h»)  =X(t1)  + h*  [Xx  (tx)  + (Kx  +K2  +K3)/6] 

X (tx  + h»)  -X  (t x)  + +2K2  + 2K3  +K4)/6 

where  K^,  K2,  K^,  and  K4  are  arrays  dimensioned  NEQN. 

The  R-K  integrator  is  also  used  for  any  non-standard  integration  interval, 
h*  < h.  The  procedure  is  to  first  evaluate  the  integer  n which  is  the  largest  in- 
teger such  that 

nh»  < h* 

where  h'  = h/4.  A total  of  n steps  of  interval  h'  followed  by  a single  step  of 
interval  (h*  -nhr)  are  then  executed  using  the  R-K  algorithm  to  obtain  the  de- 
sired point.  Unlike  the  procedure  employed  when  constructing  the  derivative 
tables,  the  n+1  steps  using  the  R-K  formulas  are  executed  with  a single  call 
to  AMAINT. 

The  information  as  to  which  procedure  to  use  is  passed  to  subroutine 
AMAINT  through  the  calling  argument  INDS.  This  integer  variable  may  have  the 
value  of  1,  2,  or  3.  A standard  integration  step  is  indicated  by  INDS  = 1.  For 
this  case,  the  interval  may  be  either  h or  h\  depending  on  whether  the  complete 
derivative  table  is  available,  and  the  integration  technique  used  may  be  either  the 
backward  difference  or  the  R-K  algorithm,  depending  on  the  number  of  steps 
taken  since  the  table  construction  was  begun.  INDS=2  signifies  that  a non-standard 
interval  h*  is  to  be  integrated.  The  integration  over  the  total  Interval  is  per- 
formed before  leaving  the  subroutine.  A value  of  3 denotes  that  a new  derivative 
table  is  to  be  constructed,  and  the  necessary  counters  are  initialized  so  that  the 
construction  process  is  begun.  A Fortran  variable  NRKS  is  initialized  to  24  and 


decremented  by  one  following  each  Integration  Interval  of  h',  and  a variable  NRS 
Is  Initialized  to  6 and  decremented  by  one  each  Integration  step  of  h'  by  the 
R-K  Integrator.  The  R-K  Integrator  Is  used  If  NRS  > 0,  and  the  Integration 
Interval  h*  = h/4  Is  used  If  NRKS  > 0.  A single  Integration  step  Is  performed 
on  a call  to  AMAINT  If  INDS  Is  either  1 or  3. 


AMAINT  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

T 

SU 

AMI 

Independent  variable  of  integration,  t. 

XI  (80) 

SU 

AMI 

Array  of  integrated  variables,  X. 

DTI 

SUE 

AMI 

(DELTI) 

Integration  interval,  h or  h'  or  h*. 

XID(80) 

SU 

AMI 

First  derivatives  of  integrated 
variables,  X. 

D2XI(80) 

u 

AMI 

Second  derivatives  of  integrated 
variables,  X. 

IFST(80) 

u 

AMI 

Array  of  flags  defining  which  equa- 
tions are  first  order  differential 
equations.  A value  of  0 denotes  a 
second  order  equation;  a value  of  1 
denotes  a first  order  equation. 

INDS 

ux 

Indicator  flag  defining  the  procedure 
AMAINT  is  to  use.  Value  of  1 indi- 
cates standard  call ; value  of  2 de- 
notes non-standard  integration 
interval;  value  of  3 signals  the 
need  to  reconstruct  the  derivative 
tables. 

NEQN 

u 

AMI 

Number  of  equations  being  Integrated. 

CWLIN 

SUE 

AMI 

Array  equivalent  to  XI,  but  dimensioned 

(240) 

(XI) 

to  include  XID  and  D2XI. 

DELTI 

SU 

AMI 

Integration  interval,  h or  h'  or  h*. 
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Name: 


AMAL 


Calling  Arguments: 
Referenced  Sub-programs; 
Referenced  Commons: 
Entry  Points: 

Referencing  Sub-programs: 


X,  SND,  CSD,  A 

None 

None 

None 

SETI,  SOLENG 


Discussion:  This  subroutine  computes  the  3x3  transformation  that  applies 
for  the  rotation  of  a unit  vector  a about  a second  unit  vector  b through  a 
given  clock  angle  a to  the  position  c.  Denoting  the  transformation  matrix 
as  A (b,  a),  the  transformation  may  be  mathematically  represented: 

c = A (b,  a)  a. 

Plctorlally,  the  rotation  appears  as  In  the  following  sketch: 


Note  that  this  subroutine  computes  the  transformation  matrix  A only.  The 
resultant  vector  c Is  evaluated  using  the  subroutine  MTVT.  The  matrix  A 
Is  evaluated  with  the  formula  (see  Reference). 

A (b,  a)  ■ i cos  a + b (1  - cos  a)  + C sin  a 


where  I Is  the  3x3  Identity  matrix,  B represents  the  outer  product  of  b 
upon  Itself,  i.e., 


B - 


b b b b b b 

1 1 1 2 1 3 

b.b,  b„  b_  b b 

2 1 2 2 2 3 

b„  b,  b„  b„  b„  b 

3 1 3 2 3 3 


and  C is  the  cross  product  operator  matrix 


0 

b: 

-b 


-b  b 
3 2 

0 -b. 


The  elements  »■  , b , mid  b represent  the  Cartesian  components  of  b. 
*2  3 


Reference: 

S.  Pines  and  B.F.  Cockrell,  ’'Partial  Derivatives  of  Matrices  Representing 
Rigid  Body  Rotations,  " MSC  Internal  Note  No.  68-FM-231,  September  1968. 


AMAL  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

A(3, 3) 

sx 

Transformation  matrix,  A(b,  a). 

X(3) 

ux 

Reference  unit  vector,  b. 

CSD 

ux 

Cosine  of  clock  angle  a,  cos  a. 

SND 

ux 

i 

| 

Sine  of  clock  angle  a,  sin  a. 
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Name: 


CONTRL 


Calling  Arguments:  None 

Referenced  Sub-programs:  AMAINT,  GENMA,  INT,  TBDP 

Referenced  Commons:  ALAN,  AMI,  HENRY,  HER,  HIS,  ILEF,  INTEG, 

LEFT,  NORM,  STEVE,  TBPR 


Entry  Points:  None 

Referencing  Sub-programs:  TRAJL 


Discussion:  This  subroutine  monitors  the  calculation  of  the  nominal  trajectory  to 
determine  when  two-body  trajectory  rectifications  and  reference  switches  are  re- 
quired and  to  control  the  integration  of  the  trajectory  to  precise  arc  end  times. 

Upon  entry,  the  current  time  is  compared  to  the  'scheduled  end  time  of  the  current 
trajectory  arc.  If  this  end  time  is  passed,  subroutine  TBDP  is  called  to  evaluate 
the  interval  in  the  universal  anomaly  required  to  integrate  to  the  desired  end  time. 
Subroutine  AMAINT  is  then  called  with  this  interval  and  the  backward  integration 
is  performed.  A call  to  subroutine  GENMA  is  performed  to  store  pertinent  tra- 
jectory arc  information  and,  if  perturbation  trajectories  are  being  computed 
simultaneously  with  the  nominal,  to  update  the  partial  derivative  matrix  to  the 
end  of  the  arc.  The  arc  counter  and  next  arc  end  time  are  updated  and  a flag 
ITRIG  is  set  to  1 to  indicate  that  an  end  of  arc  has  been  encountered.  A check 
is  then  made  to  determine  if  the  arc  just  completed  is  the  last  arc  of  the  trajectory. 
If  so,  the  flag  ITRIG  is  set  to  3 to  indicate  end-of-trajectory  and  a return  from 
the  subroutine  is  immediately  executed.  Otherwise,  the  logic  flow  continues  as 
if  no  end-of-arc  had  been  encountered. 

The  next  step  is  to  determine  if  switch  of  the  reference  coordinate  system 
should  be  performed.  This  determination  is  made  on  the  basis  of  the  distance  of 
the  spacecraft  from  the  various  attracting  bodies  Included  in  the  simulation.  With 
each  possible  attracting  body  included  in  the  program  there  is  defined  a distance 
which  may  be  considered  the  radius  of  the  sphere  of  influence.  When  the  space- 
craft is  within  this  sphere,  the  reference  coordinate  system  is  centered  at  the 


corresponding  body.  Switches  In  the  reference  coordinate  system  are  performed 
at  the  end  of  the  integration  interval  over  which  the  sphere  was  crossed.  No 
attempt  is  made  to  iterate  the  actual  crossing  point. 

The  current  reference  coordinate  system  is  identified  by  the  common 
variable  IREFNO.  When  1REFNO  = 1 (Earth),  the  possibility  of  passing  into  the 
sphere  of  the  moon  is  first  checked;  if  negative  (i.e. , the  sphere  was  not  crossed) 
the  possibility  of  passing  outside  the  Earth's  sphere  is  then  checked.  When 
IREFNO  = 2 (Moon)  or  IREFNO  > 3 (any  planet  other  than  Earth),  the  only  check 
is  to  see  if  the  sphere  of  the  associated  body  is  exited.  When  IREFNO  = 3 (Sun), 
the  possibility  of  entering  the  sphere  of  each  planet  included  in  the  simulation  is 
checked.  If  the  result  of  any  of  these  checks  is  positive,  the  variable  IREFNO  is 
changed  to  the  new  reference  body  identification  number  and  two  calls  to  subroutine 
INT  are  executed  to  return  the  position  and  velocity  of  the  new  reference  body  at 
the  current  time.  Unless  the  crossing  is  from  Moon  to  Earth,  from  Sun  to  Earth 
or  from  any  planet  other  than  Earth  to  Sun,  the  sign  of  each  element  of  these  two 
vectors  is  immediately  reversed.  Additionally,  if  the  crossing  is  from  Earth  to 
Sun  or  vice-versa,  the  units  of  distance  are  converted  to  AU  when  going  to  Sun 
reference  and  to  ER  when  going  to  Earth  reference.  This  conversion  of  units  is 
performed  not  only  for  the  position  and  velocity  vectors  just  returned  from  sub- 
routine INT,  but  also  for  the  array  of  positions  and  velocities  XRL  and  XRDL, 
respectively,  of  the  spacecraft  relative  to  all  perturbing  bodies  and  of  the  Encke 
terms  in  position  and  velocity,  XIL  and  XEDL.  The  position  and  velocity  vectors 
relative  to  the  current  reference  body  are  updated  to  the  new  reference  body  and 
the  factor  for  converting  between  time  and  universal  anomaly  derivatives  is 
corrected  for  the  new  reference  body  using  the  formula 

I 3 =*Vj/r 

where  P Is  the  universal  anomaly,  ju  is  the  gravitational  constant  of  the  new 
reference  body  and  r is  the  new  two  body  distance.  Also,  the  planetary  mass 
array,  ME,  Is  defined  in  terms  of  Earth  masses  if  the  new  IREFNO  is  less 
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than  3 and  in  terms  of  Sun  masses  otherwise,  and  the  flag  ITRIG  is  set  to  1 
to  Indicate  that  a special  event  has  occurred  over  the  integration  interval  being 
monitored.  A return  from  CONTRL  is  then  executed. 

If  no  reference  switches  were  required  over  the  integration  interval,  a 
final  set  of  checks  are  made  to  determine  if  a rectification  of  the  reference  two- 
body  trajectory  is  appropriate  as  a result  of  accumulated  deviations  from  the 
reference  trajectory.  Such  rectifications  can  be  triggered  by  the  occurrence  of 
any  one  of  three  events:  (1)  the  change  in  eccentric  anomaly  on  the  reference 
two-body  orbit  since  the  last  rectification  exceeding  the  value  of  the  common 
variable  THTS;  (2)  the  square  of  the  ratio  of  the  position  deviation  from  the 
reference  two-body  over  the  distance  from  the  reference  body  exceeding  the 
value  of  the  common  variable  POSRCS;  or  (3)  the  square  of  the  ratio  of  the 
velocity  deviation  from  the  reference  trajectory  over  the  speed  relative  to  the 
reference  body  exceeding  the  value  of  the  common  variable  VELRCS.  The  three 
common  variables  noted  are  available  as  inputs  to  the  program.  If  not  input,  the 
following  default  values  are  used: 

THTS  = 1.5  radians 

POSRCS  = l.D-4 

VELRCS  = l.D-4 

If  any  one  of  the  rectification  criteria  is  satisfied,  the  integer  flag  IDUMMY  is 
set  to  indicate  the  reason  for  rectification,  the  flag  iTRIG  is  set  to  1 to  indicate 
a special  event  has  occurred  during  the  integration  interval,  and  a return  from  the 
subroutine  is  executed.  If  none  of  the  rectification  criteria  is  satisfied,  the  sub- 
routine is  exited  with  the  flags  IDUMI*1Y  = 4 and  ITRIG  = 2 except  for  the  case 
when  an  end  of  arc  had  been  encountered  for  which  ITRIG  will  possess  a value  of 
1. 
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CONTRL  EXTER  'JAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

T 

UA 

ALAN 

Current  time  in  hours  from  start 
of  the  trajectory,  t. 

ME  (12) 

S 

HENRY 

Planetary  mass  array  in  Earth  masses 
if  IREFNO  < 3 and  in  Sun  masses 
otherwise. 

TI 

U 

STEVE 

Time  of  last  rectification,  in  hours, 
from  start  of  trajectory. 

XI(3) 

UE 

AMI 

(XIL) 

Positional  deviation  of  no.  .Inal  tra- 
jectory from  reference  two-body 
trajectory. 

XR(6) 

UE 

LEFT 

(XRL) 

Position  vector  ot  spacecraft  relative 
to  current  reference  body.  Same  as 
XRL  but  limited  to  nominal  trajectory 
only. 

CHN 

(100) 

U 

HIS 

Array  of  variables  available  for  use 
as  independent,  variables  in  the 
boundary  value  problem.  Only  the 
arc  end  times  are  used  in  this 
routine. 

DTI 

S 

AMI 

Time  interval  in  hours  from  last 
rectification  to  desired  print  point. 
Value  is  stored  just  prior  to  call 
to  TBDP.  Upon  return  from 
TBDP,  DTI  contains  universal 
anomaly  integration  interval  from 
current  time  to  desired  print  point. 

UK 

SUA 

, 

INTEG 

Index  of  array  ITBL.  Values  range 
from  1-8  and  correspond  to  Sun, 
Jupiter,  Mars,  Venus,  Saturn, 
Uranus,  Neptune  and  Pluto,  res- 
pectively. 
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CONTRL  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

ITB 

S 

TBPR 

Flag  set  to  1 immediately  preceding 
call  to  TBDP  to  force  that  routine  to 
compute  the  correct  universal  anomaly 
integration  interval  required  to  inte- 
grate backward  to  desired  arc  end 
time.  Reset  to  zero  after  call  to 
TBDP. 

KSQ 

S 

STEVE 

Gravitational  constant  of  current 

q O 

reference  body,  in  ER  /hr*'  for 
IREFNO  * 2 and  AU3/hr2  for 
1REFNO  ^ 3. 

MEI 

(12) 

U 

HENRY 

Array  of  planetary  masses  in  units 
of  Earth  masses.  Index  is  IREFNO* 

NTP 

su 

HER 

Counter  incremented  along  the  tra- 
jectory and  equal  to  the  current  arc 
number. 

RRE 

u 

HENRY 

Distance  from  Earth  in  ER  beyond 
which  the  reference  is  switched  from 
Earth  to  Sun. 

RRM 

u 

HENRY 

Distance  from  Moon  in  ER  beyond 
which  the  reference  is  switched 
from  Moon  to  Earth  or  vice-versa. 

TP1 

su 

HENRY 

Time  in  hours  from  the  start  of  the 
trajectory  to  the  next  scheduled  arc 
completion. 

XID(3) 

UE 

AMI 

(XIDL) 

Velocity  deviation  of  nominal  tra- 
jectory from  reference  two  body 
trajectory. 

XIL(80) 

SUE 

AMI 

Second  integrals  of  Encke  terms  of 
nominal  and  perturbation  trajectories. 

CONTRL  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

XRL 

(6,20) 

SUE 

LEFT 

Position  vectors  of  spacecraft  from 
reference  body  on  nominal  and  per- 
turbation trajectories.  Dimension 
of  6 provides  for  magnitude,  square 
and  cube  of  distance  plus  the  three 
Cartesian  components. 

IN1X(3) 

SUA 

HENRY 

Array  of  planetary  position  coordi- 
nates returned  from  ephemeris 
interpolation  routine  INT. 

IN2X(3) 

SUA 

HENRY 

Array  of  planetary  velocity  coordi- 
nates returned  from  ephemeris 
interpolation  routine  INT. 

ITBL(22) 

UA 

NORM 

Table  of  values  defining  relative  lo- 
cations of  the  first  ephemeris 
coordinates  for  each  planetary  body. 
Ephemeris  data  are  stored  in  the  array 
TBBL  of  common  NORML.  First  11 
elements  of  ITBL  define  position  location; 
last  11  define  velocity  location.  Index 
is  IJK. 

KSQQ 

(12) 

UA 

HENRY 

Array  of  planetary  gravitational 
constants.  Index  is  IREFNO.  Units 
are  ER  Vhr2  for  Earth  and  Moon  and 
AU3/hr  for  all  other  bodies. 

NCT1 

1 

S 

HER 

Index  defining  the  relative  location 

of  arc  thrust/coast  triggers  within  variable 

arrsy  TBIN.  Set  equal  to  10  (NTP-l)+2. 

NEQL 

U 

ILEF 

Total  number  of  trajectories  being 
Integrated  simultaneously. 

NTPS 

U 

HER 

Integer  equal  to  the  total  number  of 
trajectory  arcs  minus  1. 
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CONTRL  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

RHBR 

SU 

ALAN 

Factor  for  converting  from  derivatives 
with  respect  to  universal  anomaly,  , 
to_time  derivatives.  Equal  to  /S  = 
i/ji/r,  where  \i  is  the  gravitational 
constant  of  the  reference  body  and  r 
is  the  two-body  reference  trajectory 
distance. 

RREU 

U 

HENRY 

Distance  from  Earth,  in  AU,  within 
which  the  reference  is  switched  from 
Sun  to  Earth. 

THET 

u 

HENRY 

Change  in  the  two  body  reference  tra- 
jectory eccentric  anomaly,  in  radians, 
since  the  last  rectification. 

TUTS 

u 

HENRY 

Maximum  change,  in  radians,  of 
eccentric  anomaly  permitted  without 
rectification. 

VCOL 

(72,20) 

UE 

LEFT 

Array  of  spacecraft  position  vectors 
relative  to  all  perturbing  bodies  on 
nominal  and  perturbed  trajectories. 
Includes  Cartesian  coordinates  plus 
magnitude,  square  and  cube  of  distance. 

VCOR 

UE 

LEFT 

Same  as  VCOL  except  limited  to 

(72) 

(VCOL) 

nominal  trajectory  only. 

XIDL 

(80) 

SUE 

AMI 

First  Integral  of  Encke  terms  of 
nominal  and  perturbation  trajectories. 

XRDL 

(6,20) 

i 

SUE 

LEFT 

Velocity  vectors  of  spacecraft  relative 
to  reference  body  on  nominal  and 
perturbation  trajectories.  Dimension 
of  6 provides  for  magnitude,  square 
and  cube  of  velocity  plus  the  three 
Cartesian  components. 

XRDT 

UE 

LEFT 

Same  as  XRDL  but  limited  to  nominal 

(6) 

(XRDL) 

trajectory  only. 

I 

I 
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CONTRL  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

DLEPH 

U 

NORM 

Time  Interval,  in  hours,  between 
tabular  entries  in  ephemeris  table. 

ITRIG 

su 

INTEG 

Flag  initialized  to  2 on  entry  and 
subsequently  set  to  3 if  end  of  tra- 
jectory is  reached  and  to  1 if  an  end 
of  arc  or  rectification  point  is  reached. 

MDIST 

u 

HENRY 

Conversion  factor  for  converting  be- 
tween ER  and  AU. 

NPLAN 

u 

INTEG 

Number  of  perturbing  bodies  included 
in  the  trajectory  simulation. 

RATIO 

su 

HENRY 

Variable  containing  the  value  of  the 
position  or  velocity  deviation  squared 
or  eccentric  anomaly  change  causing 
a rectification. 

IDUMMY 

s 

INTEG 

Flag  initialized  to  4 on  entry  and 
subsequently  set  to  1,  2,  or  3 if 
rectification  due  to  velocity  deviation, 
position  deviation  or  eccentric 
anomaly  change  is  required. 

IREFNO 

SUA 

INTEG 

Reference  body  ID  number  as  follows: 

1 Earth  5 Mars  9 Neptune 

2 not  available  6 Jupiter  10  Pluto 

3 Sun  7 Saturn 

4 Venus  8 Uranus 

POSRCS 

U 

HENRY  ! 

i 

Rectification  criterion  for  position 
deviation  squared. 

VELRCS 

U 

HENRY 



Rectification  criterion  for  velocity 
deviation  squared. 

• • • V t « 
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Name:  DCUBIC 

Calling  Arguments:  C,  R,  NRE 

Referenced  Sub-programs:  None 

Referenced  Commons:  None 

Entry  Points:  None 

Referencing  Sub-programs:  SAMM 


Discussion:  DCUBIC  is  a general  routine  for  the  solution  of  the  cubic  equation 
of  the  form 

3 2 

x + c,  x +c„x  + c =0 
12  3 

The  approach  used  is  the  straightforward  application  of  the  solution  to  cubic  equa- 
tions contained  in  many  references,  including  the  one  below.  If  there  exist  three 
real  roots  to  the  equation,  they  are  returned  in  the  array  R.  If  there  is  one  real 
root  and  two  conjugate  imaginary  roots,  the  real  root  is  returned  in  the  first  ele- 
ment of  R,  the  real  portion  of  the  imaginary  roots  is  returned  in  the  second  ele- 
ment, and  the  imaginary  portion  of  the  imaginary  roots  is  returned  in  the  third 
element  of  R.  The  number  of  real  roots  are  returned  in  NRE. 

Reference: 

C.R.C.  Standard  Math  Tables,  Chemical  Rubber  Co. , Inc.  13^  Student  Edition, 
1964,  pp.  366-367. 
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. DCUBIC  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

C(3) 

UX 

Array  of  equation  coefficients  c^ , 
1=1,  2,  3. 

R(3) 

sx 

Array  containing  roots  of  the  cubic 
equation,  as  defined  in  the  dis- 
cussion above. 

NRE 

sx 

Number  of  real  roots  to  the  cubic 
equation. 
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DCUPIC-3 


*****  f|fif  * *oq«p*ocrouft«i  sr«T(nt«?s 


Name. 

Calling  Argument: 
Referenced  Sub-programs: 
Referenced  Commons: 

Entry  Points: 


DERIV 

None 

INT,  RADII,  SOLENG,  TBDP 

ALAW,  AMI,  HENRY,  HER,  ILEF,  INTEG,  LEFT, 
LEON,  NORM,  STEVE 

None 


Referencing  Sub-programs:  AMAINT,  TRAJL 

Discussion:  DERIV  evaluates  derivatives  for  numerical  integration.  The  equa- 
tions of  motion  of  the  spacecraft  in  the  gravitational  field  of  n attracting  bodies 
and  subject  to  other  perturbing  accelerations  such  as  thrust  and  radiation  pressure, 
are  given  by, 

K-i  *A*  Fv 

1=1  rvl  J 

«• 

where  Ry  is  the  total  acceleration  acting  on  the  vehicle,  Is  the  gravitational 
constant  of  the  i^1  attracting  body,  R^(  Is  the  position  of  the  vehicle  relative  to 
the  l**1  body,  and  F^  represents  the  non-gravltatlonal  perturbing  acceleration 
such  as  thrust  and  solar  pressure.  These  equations  are  put  Into  observable  form 
by  referring  them  to  a reference  body  c.  The  equations  of  motion  of  the  reference 
body  are: 

r Rci 

Rc  “L  "|  ~ r • 


Subtraction  of  Equation  (2)  from  Equation  (1)  results  in  the  equations  of  motion 
of  the  vehicle  with  respect  to  the  reference  body  c. 


R = - (i 
VC  c 


R 

VC 

n 

. y u 

rRvl 

R . 
cl 

3 

r 

VC 

l ^i 

i»i 

l/c 

L 3 
rvl 

3 

rcl 
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This  permits  uniform  computation  of  the  perturbations,  regardless  of  reference 
origin.  It  should  be  noted  the  perturbation  arising  from  the  mass  of  the  reference 
planet  corresponds  to  the  Encke  acceleration, 


n p n 

••  ri  ' Vi  cl  \ 

AR  = - } nt  - -~). 

p ~ *1  \ 3 3 / 


vl 


cl 


Rcl  Is  obtained  from  the  ephemerls  Interpolation  routine  INT  and  stored  In  the 
COMP  array.  R^  Is  stored  In  the  VCOL  array. 

If  Equation  (3)  Is  Integrated  directly  by  some  numerical  scheme,  there 
results,  after  a number  of  step-by-step  Integrations,  an  accumulation  of  error 
which  leads  to  Inaccurate  results.  To  avoid  this  loss  In  precision,  It  is  con- 
venient to  write  Equation  (3)  In  the  form: 


vc 


Rk  + 4 * 


(4) 


The  velocity  and  displacement  vectors  can  be  written  as: 


R *=R.  + £ , 
vc  k * ’ 


R *R,  + £ . 
vc  k * 


(5) 

(6) 


The  reference  body  (the  one  In  whose  sphere  of  Influence  the  vehicle  travels) 
Is  chosen  so  as  to  minimize  the  perturbations. 


In  this  method  R^  Is  taken  as: 


R,  =-  M 
k c 


R, 


(7) 


and 


vc 


n 

r 

_ R , 

r vi 

R . 
cl 

> 

L 3 

3. 

l«l 

lj*c 

rvi 

rcl 

(8) 
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Equations  (7)  constitute  the  equations  of  motion  of  the  Kepler  problem  and  are 
solved  by  subroutine  TBDP. 

The  terms  accounting  for  the  Encke  term  and  the  planetary  perturbations 
appearing  on  the  right  hand  side  of  Equation  (8)  involve  numerous  terms  of  the 

« R 

T9 

form  — - — where  R and  R may  differ  only  by  small  amounts.  For  the 
3 3 o 

r ro 

Encke  term,  for  instance,  R - R * AR  which  is  small,  and  for  the  planetary 

o 

perturbations,  the  difference  is  Ryc  which  often  is  small  also. 


A computation  scheme,  which  avoids  loss  of  precision  due  to  the  sub- 
n of  nearly  equal  terms  and  which  al 
is  employed.  Defining  the  variable  u as: 


traction  of  nearly  equal  terms  and  which  also  is  correct  when  R Is  not  small, 

VC 


-^(Ro+iAR).  AR. 


where  AR  ■ R - R , then  the  difference  terms  on  the  right  hard  side  of  (8)  may 
o 


be  evaluated 


_R  \ AR_  R(u3  + 3u2  + 3u) 
3 " 3 “ 3 , _3 


(9) 


VCOL  and  COMP  are  the  storage  blocks  from  which  the  planetary  pertur- 
bations are  computed.  Both  consist  of  several  6-vectors  whose  components  are 
3 2 

lx,  y,  z,  r , r,  r ] , respectively.  The  VCOL  block  is  dc-ibly  dimensioned  and 
contains  the  same  vectors,  regardless  of  reference.  The  position  vectors  contained 
in  the  VCOL  (I.  J)  block  are: 


I 


Vector 


1-6 

vehicle  with  respect  to  Earth 

m m 

7-12 

vehicle  with  respect  to  Moon 

13  - 18 

vehicle  with  respect  to  Sun 
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_I_ 

Vector 

19  - 24 

vehicle  with  respect  to  Venus 

25  - 30 

vehicle  with  respect  to  Mars 

31  - 36 

vehicle  with  respect  to  Jupiter 

37  -42 

vehicle  with  respect  to  Saturn 

43  -48 

vehicle  with  respect  to  Uranus 

49  - 54 

vehicle  with  respect  to  Neptune 

55  - 60 

vehicle  with  respect  to  Pluto 

67  - 72 

vehicle  with  respect  to  Mercury 

for  all  J.  Vectors  for  J = 1 correspond  to  the  nominal  trajectory  while  J = 2 
to  J = NEQL  corresponds  to  perturbation  trajecotires.  The  format  of  the  COMP 
block  is  identical  to  the  VCOL  format.  The  contents  of  the  COMP  depend  on  the 
reference  origin.  The  COMP  vectors  contain  the  reference  body  with  respect  to 
the  perturbing  bodies.  Since  these  vectors  are  the  same  for  nominal  and  reference 
trajectories,  the  array  is  singly  dimensioned.  In  this  array,  one  of  the  vectors 
would  be  the  reference  with  respect  to  itself.  This  vector  is  filled  with  the  un- 
perturbed vehicle  position  (derived  from  the  two-body  problem)  with  respect  to 
the  reference. 

The  method  presented  yields  accurate  trajectories  using  relatively  little 
computer  time.  All  significant  solar  system  bodies  may  be  included  without  undue 
complications.  All  perturbing  bodies  whose  identification  number  is  not  greater 
than  the  integer  NPLAN  are  included  in  the  simulation.  Since  the  perturbations 
only  are  integrated,  the  allowable  integration  interval  is  fairly  large  over  most  of 
the  path.  Even  in  the  vicinity  of  Earth  or  another  planet  a relatively  large  interval 
(compared  to  other  schemes)  may  be  used  without  limiting  the  stability  and  accuracy 
of  the  solutions.  The  perturbations  are  kept  small  in  two  ways.  First,  the  two- 
body  orbit  is  rectified  whenever  the  perturbations  exceed  a specified  maximum  value 
compared  to  the  corresponding  unperturbed  values.  This  limits  error  build-up 
with  respect  to  particular  reference  body.  Second,  the  reference  body  of  the 
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two-body  problem  is  changed  from  Earth,  to  Sun,  to  planet  accordingly,  as  that 
reference  body  would  contribute  the  largest  perturbing  force  otherwise.  This 
method  is  referred  to  as  a modified  Encke  formulation  and  will  handle  circular 
orbits  and  zero  inclination,  which  are  normally  singular  regions  for  the  standard 
Encke  formulation.  The  problem  is  defined  in  terms  of  parameters  which  have 
real  physical  significance  (namely,  the  position  and  velocity  vectors)  which  are 
directly  relatable  to  measurable  quantities. 


The  computation  of  the  non-gravitational  contributions  is  performed  in 
subroutine  SOLENG.  The  total  accelerations  are  then  converted  to  second  deri- 
vatives with  respect  to  the  universal  variable  /3  through  the  equations 

*..*  £ ♦ «. 

where  the  prime  denotes  derivatives  with  respect  to  j8. 


DERIV  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

T 

U 

ALAN 

Time  in  hours  from  start  of  trajectory. 

KM(12) 

U 

HENRY 

Array  of  planetary  gravitational  con- 
stants, in  ER3/hr2  for  IREFNO  s 2, 
AU3/hr2  for  IREFNO  * 3.  Index  is 
IREFNO. 

NQN 

u 

ILEF 

Number  of  equations  integrated  on 
each  nominal  trajectory. 

NTP 

u 

HER 

Counter  incremented  along  the  tra- 
jectory and  equal  to  the  current  arc 
number. 

XIL(80) 

u 

AMI 

Second  integrals  of  Encke  terms  of 
nominal  and  perturbation  trajectories. 

/ 


! 
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PER IV  EXTERNAL  VARIABLES  TABLE  ( cont) 


Variable 

• Use 

Common 

Description 

XRI(6) 

U 

STEVE 

Position  vector  on  reference  two-hody 
trajectory  at  last  rectification  point. 
Contents  include  [x,  y,  z,  r3,  r,  r2]. 

XRL 

(3. 20) 

SUA 

LEFT 

Position  vectors  of  spacecraft  from 
reference  body  on  nominal  and  per- 
turbation trajectories.  Dimension 
of  6 provides  for  magnitude,  square 
and  cube  of  distance  plus  the  three 
Cartesian  components. 

XRO(6) 

SUA 

LEON 

Position  vector  on  reference  two-body 
trajectory  at  current  time.  Contents 
include  [x,  y,  z,  r3,  r,  r2]  . 

XSQ 

U 

STEVE 

Gravitational  constant  of  current 
reference  body,  in  ER3/hr2  for 
IREFNO  * 2 and  AU3/hr2  for 
IREFNO  * 3. 

BETA 

U 

AMI 

Universal  variable,  accumulated  from 
last  rectification  point. 

INTV 

(72) 

SUA 

HENRY 

Array  of  planetary  heliocentric  posi- 
tion vectors  returned  from  subroutine 
INT.  The  three  Cartesian  coordinates 
of  the  bodies  are  stored  sequentially  in 
the  following  order:  Earth,  Jupiter, 
Mars,  Venus,  Saturn,  Uranus,  Neptune, 
Pluto.  Only  the  first  24  locations  are 
currently  used  by  the  program. 

NEQL 

U 

ILEF 

Number  of  trajectories  being  inte- 
grated simultaneously. 

RHBR 

SU 

ALAN 

i 

Factor  for  converting  between  time 
derivatives  and  universal  anomaly 
derivatives,  . 
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DERIV  EXTERNAL  VARIABLES  TABLE  (cont) 


T 

Variables 

Use 

Common 

Description 

I 

I 

THET 

S 

HENRY 

Change  In  eccentric  anomaly  along 
reference  two-body  trajectory, 
measured  in  radians  from  last 
rectification. 

VCOL 

(72,20) 

UA 

LEFT 

Array  of  spacecraft  position  vectors 
relative  to  all  perturbing  bodies  on 
nominal  and  perturbed  trajectories. 
Includes  Cartesian  coordinates  plus 
magnitude,  square  and  cube  of 
distance. 

% 4ft 

XIDL 

(80) 

U 

AMI 

First  integral  of  Encke  terms  of 
nominal  and  perturbation  trajectories. 

Hi  V 

t 

\ ( 

r 

- ► 

XRDL 

(6,20) 

SUA 

LEFT 

Velocity  vectors  of  spacecraft  relative 
to  reference  body  on  nominal  and 
perturbation  trajectories.  Dimension 
of  6 provides  for  magnitude,  square 
and  cube  of  velocity  plus  the  three 
Cartesian  components. 

DELPH 

U 

NORM 

Time  interval,  in  hours,  between 
tabular  entries  in  ephemeris  table. 

DGRHO 

SU 

ALAN 

Factor  used  in  converting  between 
second  derivatives  with  respect  to 
time  and  universal  anomaly,  defined 

D2XIL 

(80) 

SU 

l 

AMI 

Array  of  second  derivatives  repre- 
senting the  Encke  perturbations  for 
the  nominal  and  perturbation 
trajectories. 

n* 

MDIST 

u 

HENRY 

Conversion  factor  for  converting  be- 
tween ER  ami  AU. 

*«* 

i 

PRVDT 

SU 

HENRY 

Value  of  universal  anomaly  on 
previous  pass  through  subroutine 
DERIV. 

I 
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DERIV  EXTERNAL  VARIABLES  TABLE  (cont) 


1 Variable 

Use 

Common 

Description 

RCIND 

U 

HENRY 

Rectification  indicator.  Value  of  1 
denotes  that  a rectification  of  the 
reference  two-body  trajectory  was 
just  performed. 

SQTMU 

U 

STEVE 

XREDT 

(6) 

U 

STEVE 

Velocity  vector  on  reference  two-body 
trajectory  at  last  rectification  point. 
Contents  include  [x,  y,  z,  v3,  v,  v2]. 

XRODT 

(6) 

su 

LEON 

Velocity  vector  on  reference  two-body 
trajectory  at  current  time.  Contents 
Include  U,  y,  z,  v3,  v,  v2]. 

IREFNO 

u 

INTEG 

Reference  body  ID  number  as  follows: 

1 Earth  5 Mars  9 Neptune 

2 not  available  6 Jupiter  10  Pluto 

3 Sun  7 Saturn 

4 Venus  8 Uranus 

NPLAN3 

UA 

INTEG 

Number  of  position  coordinates  to  be 
returned  from  the  ephemerls  interpo- 
lation subroutine  INT. 

rto» 


DERIV-11 


»eeu  t 
conri  i 


DERIV-15 


ftvToritw  chart  sit  - * s.r.c.  *st«p  - «ovc*»r*  mm 


DERIV-17 


Name: 


DETDT 


f 


I 


Calling  Argument: 
Referenced  Sub-programs: 
Referenced  Commons: 
Entry  Points: 

Referencing  Sub-programs: 


None 

None 

ALAN,  HENRY,  INTEG,  LEFT,  STEVE 

None 

TRAJL 


Discussion:  This  subroutine  is  used  to  define  the  integration  and  print  intervals 
throughout  the  trajectory.  The  values  of  the  intervals  to  be  used  are  stored  in 
the  array  ARRAY (8, 3, 12)  as  a function  of  distance  from  the  several  planetary 
bodies.  ARRAY  contains,  for  each  body,  up  to  eight  distances  with  which  are 
associated  seven  integration  intervals  and  seven  print  intervals.  Denoting  the 
distance  for  the  current  reference  body  as  r.,  i = 1,  2,  — , 8,  and  the  in- 
stantaneous distance  of  the  spacecraft  from  the  reference  body  as  r,  a com- 
parison of  r and  r.  is  made  to  determine  the  index  j such  that 

j Vi 

.The..  *he  integration  interval,  A/3,  and  the  print  interval,  Ap,  are  assigned 

A/S  = ARRAY  (j,  2,  IREFNO) 

Ap  = ARRAY  (j.  3,  IREFNO) 

If  r <r  or  r > r , a warning  message  is  printed  and  the  subroutine  is  exited 
X o 

without  modifying  either  the  integration  or  print  interval.  If  r is  between 
and  r , the  new  integration  interval  is  compared  with  the  previous  value  and, 

O 

if  unequal,  the  integration  interval  change  indicator  CHIND  is  set  to  1.  Similarly, 
the  new  print  interval  is  compared  to  the  previous  value  and,  if  unequal,  the  print 
Interval  change  indicator  is  set  to  1. 


PRECEDE  FALL  BLANK  N 


iOT  FILMED 
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Messages  and  Printout:  If  r < r^,  the  following  message  is  printed: 

RVE  LESS  THAN  MIN. 

IREFNO  = iI3)  TIME  - (D24.15)  R = (D24.15)  . 

The  three  variables  printed  are  the  reference  body  number,  the  current  time 
in  hours  from  the  start  of  the  trajectory,  and  the  current  distance  from  the 
reference  body  in  ER  if  IREFNO  < 3 aM  in  AU  otherwise. 

If  r > r , the  following  is  printed: 

O 

RVE  EXCEEDS  MAX. 

IREFNO  = (13)  TIME  = (D24.15)  R = (D24. 15)  . 


DETDT  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

T 

U 

ALAN 

Current  time  in  hours  from  start  of 
trajectory. 

XR(6) 

UE 

LEFT 

Position  of  spacecraft  relative  to 

(XRL) 

reference  body.  The  six  elements 
contain  [x,y,  z,r3,  r,r2]. 

PDT 

SU 

HENRY 

Print  interval,  Ap,  in  hours.  (Not 
presently  activated  in  the  program). 

DELT 

SU 

STEVE 

Integration  interval  of  universal 
variable,  Aft. 

PCIN 

S 

HENRY 

Print  interval  change  indicator.  Set 
to  1.  if  the  new  print  interval  differs 
from  the  previous  interval. 

DETDT  EXTERNAL  VARIABLES  TABLE  ( cont) 


Variable  Use  Common 


Description 


ARRAY  U 

(8,3,12) 


HENRY  Array  containing  tables  of  the  integra- 
tion and  print  (not  used)  intervals  as  a 
function  of  distance  from  the  several 
solar  system  bodies.  The  third  sub- 
script indexes  the  tables  according  to 
the  celestial  body;  the  reference  body 
Indicator  EREFNO  is  used  as  the  index 
for  this  subscript.  The  second  sub- 
script defines  the  specific  tabular 
parameter;  1 corresponds  to  distance, 

2 to  integration  interval  and  3 to 
print  interval  (not  used).  The  first 
subscript  indexes  the  tabular  parameters. 


CHIND 


HENRY  Integration  interval  change  indicator. 

Set  to  1.  if  the  new  integration  inter- 
val differs  from  the  previous  interval. 


EREFNO  U 


INTEG  Reference  body  ID  number  as  follows: 

1 Earth  5 Mars  9 Neptune 

2 not  available  6 Jupiter  10  Pluto 

3 Sun  7 Saturn 

4 Venus  8 Uranus 


DETDT-3 


1 


Name: 


DIAG1 


Calling  Argument:  None 


Referenced  Sub-programs : None 


Referenced  Commons:  • ALAN,  AMI,  CONRAD,  FRAN,  HENRY,  HER, 

HIS,  INPR,  INTEG,  JERR,  KAT,  LAMB,  LPPR, 
NOMLL 


Entry  Points:  SUMMRY 

Referencing  Sub-programs:  FNMAT,  SETI 


Discussion:  Subroutine  DIAG1  performs  the  printing  of  the  trajectory  summary 
at  each  iteration.  The  printout  consists  of  a complete  set  of  independent  and 
dependent  parameters  for  the  mission,  a spacecraft  mass  breakdown,  and  the 
partial  derivative  matrix.  On  the  first  call  to  the  routine  on  each  case,  the 
headings  for  the  independent  and  dependent  parameters  are  initialized  for  the 
case.  On  all  calls  to  the  routine  the  current  time  is  compared  to  the  end  time 
of  the  first  arc,  and  if  the  current  time  is  less,  a return  from  the  subroutine 
is  immediately  performed.  A return  is  also  performed  if  the  current  trajectory 
is  not  a nominal  (i.e. , a partial  derivative  matrix  based  on  this  trajectory  has 
not  been  generated),  providing  the  flag  NOPT(60)  is  zero.  Otherwise,  the  logic 
proceeds  to  print  the  trajectory  summary  print  after  converting  all  angles  from 
radians  to  degrees.  The  masses  are  printed  in  kilograms.  The  initial  mass, 
mQ,  is  equated  to  the  launch  vehicle  payload  which  is  assumed  to  be  a function 
of  launch  excess  speed,  i.e, , 


m 

o 


-v  /a„ 
a1e  c 2 


where  a^  ag  and  ag 
vehicle  of  interest,  v 


v = f]  + 2v  2 , 

C V oo  O 

are  coefficients  representative  of  the  specific  launch 
is  the  circular  satellite  speed  at  185  km  altitude 


above  the  earth  and  v is  the  excess  speed.  The  propulsion  system  mass 


m is 
PP 


m = a p 
pp  ps  o 


where  a is  the  specific  propulsion  system  mass  in  kg/watt  and  pQ  is  the 
reference  power  In  watts.  The  propellant  mass  m^  is  evaluated  as  the 
difference  between  the  initial  spacecraft  mass  and  the  final  integrated  mass 
prior  to  any  retro  maneuver.  The  tankage  and  structure  masses,  m and 

V 

m , respectively,  are  defined 
s 

m . = k,  m , 
t t p 

m = k m , 
s so 

where  kA  and  k are  input  scaling  coefficients.  The  retro  stage  propellant 
t s 

and  structure  are 

, -Av/c  , 

m - (*n  - m )( 1 - e r)  , 
rp  o p 


m = k m 
rt  r rp 


where  Av  is  the  magnitude  of  the  incremental  velocity  required  to  brake  the 

spacecraft  at  periapse  of  the  incoming  hyperbola  to  the  desired  periapse  speed 

on  the  desired  capture  orbit,  c^  is  the  jet  exhaust  speed  of  the  retro  stage 

and  k is  an  input  scaling  coefficient.  The  net  spacecraft  mass  is  defined  as 
r 

the  mass  remaining  after  subtracting  from  the  initial  mass  all  of  the  above  mass 
components. 

A call  to  SUMMRY  results  in  the  printing  of  the  case  summary  page, 
consisting  of  an  identification  of  the  launch  and  target  planets ; a statement  de- 
fining the  steering  mode;  a listing  of  the  launch  vehicle,  efficiency  law,  photon 
absorption  and  specific  array  area  coefficients;  a spacecraft  mass  breakdown; 
a printout  of  the  angles  defining  the  orientation  of  the  unit  vector  n along  the 
normal  to  the  arrays  and  the  unit  constraint  vector  s (see  SOLENG);  a line  of 


I 


propulsion  system  parameters  Including  reference  power,  reference  thrust  In 
newtons,  exhaust  speed,  overall  efficiency,  unit  thruster  power  Ap,  and  solar 
array  area;  a trajectory  schedule;  a line  of  departure  and  arrival  conditions;  and 
a line  of  retro  and  target  orbit  conditions  (for  orblter  missions  only). 

Messages  and  Printout:  For  each  trajectory  selected  as  a nominal  and  for  which  a 
partial  derivative  matrix  is  evaluated,  the  iteration  summary  is  printed  starting 
at  the  top  of  a new  page  for  each  iteration.  Following  a statement  of  the  iteration 
number  Is  written  a block  of  parameters  preceded  with  the  heading  "INDEPENDENT 
PARAMETERS. " The  block  contains  all  parameters,  each  appropriately  titled, 
that  are  available  for  selection  as  independent  parameters  of  the  boundary  value 
problem  regardless  of  whether  they  are  actually  so  designated.  Those  which  are 
employed  as  Independent  parameters  in  the  specific  case  being  considered  are 
indicated  with  a double  asterisk  beside  the  title.  The  length  of  the  block  is  variable 
because  that  depends  on  the  number  of  trajectory  arcs  in  the  problem.  The  first 
line  of  the  block  contains  seven  parameters  representing  the  initial  state  of  the 
spacecraft  (three  components  each  of  the  initial  position  and  velocity  plus  the 
initial  mass).  The  second  row  contains  the  jet  exhaust  speed,  c,  and  the  refer- 
ence power  pQ,  the  angles  a and  0 defining  the  orientation  of  n,  the  angles 
‘6  and  e defining  the  orientation  of  s,  the  initial  time  tQ,  and  the  time  of  the 
end  of  the  first  (coasting)  arc.  The  next  line(s)  contains  the  three  thrust  angles 
and  the  end  time  for  each  of  the  arcs  (exclusive  of  the  first)  comprising  the  tra- 
jectory. Each  line  contains  information  for  two  arcs.  Following  the  arc  data 
are  the  four  parameters  defining  changes  In  the  Initial  orientation  of  the  launch 
parking  orbit  and  the  speed  of  departure  from  that  orbit.  These  parameters  are 
titled  "DL  OMS",  "DL  OML",  "DL  INC",  and  "DL  VPO"  and  represent  changes  from 
the  previous  nominal  in  argument  of  perigee,  longitude  of  ascending  node,  in- 
clination to  the  equator,  and  speed  at  periapse  of  the  launch  hyperbola,  respectively. 
The  final  parameter  in  the  Independent  parameters  block  is  the  speed  at  periapse 
of  the  launch  hyperbola. 
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The  next  block  of  data  consists  of  the  20  parameters  which  are  presently 
available  as  end  conditions.  These  parameters  are  all  appropriately  titled  and 
are  preceded  by  the  heading  "DEPENDENT  PARAMETERS. " Again,  those  para- 
meters which  are  specified  as  end  conditions  of  the  case  are  Indicated  with  a 
double  asterisk  beside  the  title.  The  parameters  comprising  the  20  available 
end  conditions  are  the  final  spacecraft  mass;  the  net  spacecraft  mass;  the 
reference  thrust;  the  final  heliocentric  distance  and  speed;  the  final  heliocentric 
osculating  semi-major  axis,  flight  path  angle,  eccentricity,  apocenter  distance 
and  per  (center  distance;  the  target  centered  final  distance  and  speed;  the  final 
planetocentric  osculating  semi-major  axis,  flight  path  angle,  eccentricity,  apo- 
center distance  and  pericenter  distance;  and  the  three  final  planetocentric  ecliptic 
Cartesian  components  if  distance. 

Following  the  block  of  dependent  parameters  is  a line  stating  the  reference 
system  in  which  the  integration  terminated,  the  value  of  the  inhibitor  used  by  the 
iterator,  and  a trajectory  counter.  This  counter  is  the  cumulative  number  of  tra- 
jectories integrated  exclusive  of  the  nominal  trajectories.  This  is  followed  by  a 
spacecraft  mass  breakdown.  This  includes  the  initial  mass,  the  low  thrust  pro- 
pulsion, propellant,  and  tankage  masses,  the  structural  mass,  the  retro  propellant 
and  structure,  and  the  net  spacecraft  mass.  Finally,  the  iteration  summary  print 
Is  concluded  with  the  partial  derivative  matrix.  Each  row  of  this  matrix  represents 
the  partials  of  one  of  the  specified  end  conditions  with  respect  to  all  of  the  indicated 
independent  parameters.  The  order  of  the  partials  reading  across  a given  row  is 
the  same  as  that  in  which  independent  parameters  appear  in  the  first  block  of  data 
of  the  iteration  summary.  Likewise,  the  order  reading  down  the  matrix  is  that 
of  the  dependent  parameters  as  they  appear  in  the  second  data  block.  Additional 
self -explanatory  messages  from  the  iterator  may  follow  the  partial  derivative 
matrix.  An  example  of  the  iteration  summary  printout  is  presented  in  Table  1. 


After  indicating  the  launch  planet  and  target  of  the  case  mission,  the  case 
summary  contains  a statement  as  to  whether  the  program  is  operating  in  the  con- 
strained or  unconstrained  mode  for  the  case.  If  in  the  constrained  mode,  a 
message  is  printed  specifying  the  reference  to  which  s is  constrained.  For  the 
case  in  which  the  reference  is  a star,  the  input  unit  vector  defining  the  location 
of  the  star  is  printed.  This  is  followed  with  a line  of  data  specifying  several  of 
the  input  coefficients  used  for  the  case.  Included  are  the  coefficients  describing 
the  capability  of  the  launch  vehicle,  the  low  thrust  propulsion  system  efficiency 
coefficients,  the  photon  absorption  coefficient  c , and  the  specific  array  area 
kp.  A spacecraft  mass  breakdown  similar  to  that  printed  in  the  iteration  summary 
is  then  written,  followed  by  the  angles  a,  fi,  6,  and  e which  define  the  orienta- 
tion of  the  n and  s vectors  in  the  body  fixed  coordinate  system.  The  next  line 
of  data  contains  a number  of  low  thrust  propulsion  system  parameters  including 
the  reference  power,  the  reference  thrust,  the  jet  exhaust  speed,  the  efficiency, 
the  unit  thruster  power  Ap,  and  the  array  area.  A trajectory  schedule  is  then 
printed,  giving  pertinent  information  from  the  ARCDTA  array  relative  to  each 
arc.  The  first  line  of  the  block  contains  the  end  times  of  all  arcs.  Below  this 
are  written  six  lines  of  data  containing  the  three  thrust  angles,  the  power  diverted 

for  non-propuls  ive  uses  p , the  maximum  allowable  half-cone  angle  0 

x max 

(applicable  only  for  constrained  mode  cases),  and  the  thrust  mode  indicator  "ON" 
or  "OFF"  deiining  the  operational  status  of  the  propulsion  system  for  the  arc. 
These  six  quantities  are  positioned  in  separate  columns  for  each  arc,  and  the 
columns  are  located  below  and  midway  between  the  two  times  defining  the  start 
and  end  of  the  arc.  If  there  are  more  than  eight  arcs,  the  format  is  repeated 
until  all  arcs  are  accounted  for.  No  information  is  printed  for  the  first  arc  since 
no  thrust  Is  permitted  on  the  arc.  After  the  trajectory  schedule  are  written  the 
date,  the  hyperbolic  excess  speed,  and  the  energy  parameter  cg  at  departure  of 
the  launch  planet  and  upon  arrival  at  the  target.  If  no  retro  maneuver  is  required, 
the  departure  and  arrival  conditions  complete  the  case  summery  printout.  If  a 


retro  maneuver  4s  performed,  however,  then  related  parameters  are  printed  on 
a single  line.  These  Include  the  retro  stage  propellant  and  structure,  the  perlapse 
and  apoapse  distances  of  the  final  orbit,  the  specific  Impulse  of  the  retro  stage, 
the  orbital  velocity  at  perlapse  of  the  capture  orbit,  and  the  Incremental  velocity 
Imparted  by  the  retro  state.  All  units  are  explicitly  Indicated  on  the  case  summary 
page.  An  example  of  the  case  summary  printout  Is  shown  In  Table  2. 
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DIAG1  EXTERNAL  VARIABLES  TABLE 


h 


Variable 

Use 

Common 

Description 

T 

U 

ALAN 

Time  in  hours  from  start  of  trajectory. 

BL 

U 

JERR 

Efficiency  coefficient,  b. 

CA 

U 

JERR 

Photon  absorption  coefficient.  Ratio 
of  number  of  photons  absorbed  by  solar 
array  to  total  number  of  photons 
incident. 

CR 

U 

JERR 

Jet  exhaust  speed  of  retro  stage,  in 
m/sec. 

ER(3) 

u 

JERR 

Unit  constraint  vector,  s. 

10 

u 

INTEG 

Logical  unit  on  which  standard  print- 
out is  written. 

RD 

u 

HENRY 

Factor  for  converting  from  radians 
to  degrees,  (=  57.295779513). 

AL1, 

AL2, 

AL3 

u 

JERR 

Coefficients  a-p  a„,  and  a^,  respectively, 
defining  launch  vehicle  performance 
capability  as  a function  of  launch  excess 
speed.  A LI  and  AL3  are  in  units  of  kg 
and  AL2  is  in  units  of  m/sec. 

APS 

u 

JERR 

Specific  propulsion  system  mass, 
aps,  in  kg/watt. 

CHN(100) 

u 

HIS 

Array  of  variables  available  for  use 
as  independent  variables  in  the 
boundary  value  problem. 

DSQ 

u 

JERR 

2 

Efficiency  coefficient,  d , in  units  of 
mfysec^ . 

ETA 

u 

JERR 

Overall  propulsion  system  efficiency, 
T)=  bc2/(c2  +d2),  where  c is  electric 
propulsion  system  jet  exhaust  speed. 

i 

y * ~ — ' ’ i 
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DIAG1  EXTERNAL  VARIABLES  TABLE  ( cont) 


Variables 

Use 

Common 

Description 

ICT 

SU 

LPPR 

Initialization  flag.  Non-zero  value 
implies  that  printout  headings  for  in- 
dependent parameters  have  been 
initialized. 

IPS 

U 

HER 

Number  of  dependent  variables  in  the 
two  point  boundary  value  problem. 

NSL 

u 

HER 

Number  of  independent  variables  in 
the  two  point  boundary  value  problem. 

PFG 
(30, 30) 

'J 

HIS 

Partial  derivative  matrix  of  dependent 
variables  with  respect  to  independent 
variables. 

VTP 

SU 

CONRAD 

Hyperbolic  excess  speed  upon  arrival 
at  the  target  planet. 

XIL(280) 

u 

AMI 

XIL(4),  containing  the  final  spacecraft 
mass,  is  the  only  element  used. 

XKP 

u 

JERR 

Specific  array  area,  k^,  in  m2/watt. 

XKR 

u 

JERR 

Retro  stage  structure  factor,  k^. 

XKT 

u 

JERR 

Electric  propulsion  tankage  factor,  kt» 

CHNS(100) 

SU 

1 

HIS 

Array  of  variables  available  for  use  as 
independent  variables.  Same  as  CHN 
except  units  are  changed  to  those  used 
for  printout. 

DELP 

u 

JERR 

Unit  thruster  power,  Ap,  in  watts. 

IVAR(100) 

u 

HER 

Array  containing  the  indices  of  the 
CHN  array  for  those  variables  of 
the  input  BX  array  having  non-zero 
triggers. 

- U-.^ ■ 


I 


DIAG1  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

NOMT 

U 

NOMLL 

Nominal  trajectory  flag.  Value  of  0 
implies  the  current  trajectory  is  a 
nominal  and  partial  derivatives  are 
to  be  generated. 

NOPT(72) 

U 

INTEG 

Array  of  program  option  flags. 

NTPS 

U 

HER 

Total  number  of  trajectory  arcs 
minus  1. 

POFL(30) 

u 

HIS 

Array  of  dependent  parameter  values 
for  the  current  trajectory. 

REKM 

u 

HENRY 

Number  of  kilometers  in  an  equatorial 
Earth  radius. 

TSCL 

u 

HENRY 

Number  of  seconds  in  one  hour  (=  3600). 

VORB 

u 

CONRAD 

Speed  in  target  planet  capture  orbit 
at  point  of  insertion,  in  m/sec. 

XJLD 

u 

LAMB 

Julian  date  of  launch  - 2440000. 

XK'ST 

u 

JERR 

Structural  scaling  factor  k . 

s 

XSQQ(12) 

u 

HENRY 

Array  of  planetary  gravitational 
constants. 

IPOFL(30) 

u 

HER 

Array  containing  the  indices  of  the 
BY  array  for  those  variables  having 
non-zero  triggers. 

KOUNT 

u 

KAT 

Counter  of  the  non-nominal  tra- 
jectories. 

XMDKM 

u 

FRAN 

Number  of  Earth  radii  in  one  AU. 

I 

I 
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DIAG1  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

ARCDTA 

(7,20) 


DELVE L 
IREFNB 

IREFNO 


IREFNT 


XAMBDA 


Use 


U 


Common 


INPR 


U 

U 

U 


CONRAD 

INTEG 

INTEG 


U 


U 


INTEG 


KAT 


Description 


Array  containing  input  data  for  each 
trajectory  arc  as  follows,  where  I 
denotes  the  arc  number. 


ARCDTA  (1,1) 
ARCDTA  (2, 1) 


ARCDTA (3, 1) 
ARCDTA  (4, 1) 
ARCDTA (5, 1) 
ARCDTA (6, 1) 
ARCDTA (7, 1) 


arc  end  time  in  hours, 
trigger  indicating 
whether  the  propulsion 
system  is  on  (+1.)  or 
off  (-1.)  over  the  arc. 
thrust  angle  XI  or 
THETA,  in  degrees, 
thrust  angle  NU  or 
PSI,  in  degrees, 
thrust  angle  ZETA  or 
PHI,  in  degrees, 
maximum  permissible 
value  for  PSI. 
housekeeping  power 
in  watts. 


Retro  stage  velocity  increment,  Av. 

Identification  number  of  launch  planet. 
Code  is  same  as  for  IREFNO. 

Reference  body  ID  number  as  follows: 


1 Earth  5 Mars 

2 not  available  6 Jupiter 

3 Sun  7 Saturn 

4 Venus  8 Uranus 


9 Neptune 
10  Pluto 


Identification  number  of  target  planet. 
Code  is  same  as  for  IREFNO. 

Inhibitor,  X,  used  by  iterator, 

(See  MINMX3). 
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DIAG1-25 


Name: 


ELCO 


Calling  Argument: 
Referenced  Sub-programs: 
Referenced  Commons: 
Entry  Points: 

Referencing  Sub-programs: 


T,  POSIT,  VELOC,  XMU,  IPT 
None 

HENRY,  INTEG 
None 


MIIP1 


Discussion:  This  subroutine  computes  a set  of  osculating  orbital  elements  of 
the  spacecraft  trajectory  relative  to  the  current  reference  frame  of  integration. 
The  principal  inputs  to  the  routine  are  the  current  time  t,  the  position  vector 
R,  the  velocity  vector  R and  the  gravitational  constant  of  the  reference  body 
/i.  The  input  units  are  time  in  hours  and  distance  In  Earth  radii  If  in  Earth  or 
moon  reference  and  in  AU  otherwise.  All  angles  are  output  in  degrees,  the 
mean  motion  is  in  radians  per  hour,  the  semi-major  axis  is  in  Earth  radii, 
except  when  outside  Earth  or  moon  reference  and  NOPT(33)  is  non-zero,  the 
units  are  AU.  Apocenter  and  pericenter  distances  are  in  kilometers,  except 
when  semi-major  axis  is  expressed  in  AU,  in  which  case  these  distances  are 
also  in  AU.  All  output  times  are  in  hours. 


The  angular  momentum  H is  evaluated 

H=RxR, 


with  magnitude 

h = */h  • H . 

Also  the  distance  r and  square  of  the  speed  are  evaluated 

r = VR  • R , 


along  with 

preceding  PAGE  blank  NOT  FILMED 


d = R • R , 

to  obtain  the  inverse  of  the  semi-major  axis 

1 = 2 _ 
a “ r " (i  * 

If  this  latter  quantity  is  zero,  a message  is  printed  indicating  the  osculating 
orbit  is  parabolic  and  control  is  returned  to  the  calling  subroutine. 


where  e is  eccentricity,  E is  eccentric  anomaly  and  M is  the  mean  anomaly. 
For  hyperbolic  orbits,  the  hyperbolic  anomaly  F is  employed  with  the  corres- 
ponding equations 


(5; 


(6) 


e. , — > 0),  form  the  functions 
a 

O 

TV 

e cos  E 1 , 

M 

(7) 

. m d 

eslnE  * , 

(8) 

e = y (e  cos  E)^  + (esin  E)2  , 

(9) 

\ecos  E t 

(10) 

M = E - e sin  E , 

(11) 

r v 

e cosh  F 1 , 

M 

(12) 

eslnhF  3 m\  ^ , 

a 3) 

e * y (e  cosh  F)2  - (e  slnh  F)z  , 

(14) 

F **  log  (cosh  F + slnh  F), 

(15) 

M * e slnh  F - F. 

d6) 

Forming  the  coefficients 


108 


C1  e \ u r/’ 


°3  pe  ' 


the  unit  vector  in  the  direction  of  pericenter  is  defined 

r = c„R  +c  R . 
p 1 3 

The  unit  angular  momentum  is  evaluated 

h * H/h, 

the  mean  motion  is  

n = /m/  |a3 1 , 

and  the  time  of  pericenter  passage  is 

t = t - M/n. 

P 

The  inclination  i,  longitude  of  ascending  node  ft,  and  argument  of  pericenter 
u>  are  then  evaluated  through  the  following  sequence  of  operations: 


sin  l = /l-(h  • k)2  , 

(23) 

. = tan-l(  »tal  ). 
h -k 

(0*1*180) 

(24) 

r/8lnl 

if  sin  l > 0 
if  sin  l * 0 * 

(25) 

co.n={j,)/,tat 

if  sin  t > 0 
if  sin  i s 0 * 

(26) 

'cos  0 ' 

(-180°  s 0*180°) 

(27) 

u>=  0 if  e * 0,  otherwise 

199 

...1 

ELCO-: 


If  sin  l > 0 , 


(29) 


cos  co= 


J 


(h  x r ) • k 
P - 
sin  1 


sin  40= 


r • l 
P 


(rp  • k)/sln  l 

V1' 


If  sin  l « 0 , 

If  sin  l > 0 , 
If  sin  l - 0 , 


(30) 


' <-180°sw£180°)  (31) 

where  f , j , k are  unit  vectors  along  the  x,  y;  z axes,  respectively,  of  the 

t 

reference  frame  In  which  the  vectors  R and  R are  input  Into  the  subroutine. 

The  true  anomaly  f Is  evaluated 

-1  / x \ 

f = sign  (t-t  ) tan  4 f ) , (32) 

p ' R-r 

P 

-5 

providing  the  eccentricity  exceeds  10  . For  eccentricities  below  this  value 

the  true  anomaly  Is  equated  to  the  change  In  eccentric  anomaly  along  the 

reference  two  body  trajectory  since  the  last  rectification  and  Is  given  the  sign 

of  (t  -t  ). 

P 

In  the  final  portion  of  the  subroutine,  the  apocenter  distance  r , the  perl- 

St 

center  distance,  r^,  and  the  period  r are  evaluated: 


rft  « a(l+e)  , 

(33) 

rp*a(l-e) , 

(34) 

T»2ir/n  , 

(35) 

and  all  osculating  elements  are  stored  In  the  arrays  PBLOC  and  PBLOC1  In  the 
desired  output  units.  The  PBLOC  array  contains  twelve  parameters  and  two 
unit  vectors  stored  In  the  following  order: 

a,  e,  r , r , l,  <u,  r,  n,  0,  M,  £ or  F,  t , r , h . 
pa  P P 


200 


I 

l 

I 

I 


n 

«* 


*? 


The  last  twelve  elements  of  the  PBLOC  array  are  not  modified  in  ELCO.  The 
PBLOC1  array  contains  two  elements,  time  t and  true  anomaly  f In  that  order. 

If  the  print  flag  IPT  Is  zero,  PBLOC1  and  the  first  18  elements  of 
PBLOC  are  printed  In  a format  which  Identifies  each  element.  A return  to  the 
calling  subroutine  Is  then  executed. 

Messages  and  printouts:  The  computation  of  — s 0 leads  to  the  message 

E 

PARABOLIC  ORBIT  OSCULATING  ELEMENTS  SUPPRESSED 

followed  by  an  Immediate  return  from  the  subroutine.  A zero  value  of  the  input 
flag  IPT  results  In  the  printing  of  the  following  block  of  information: 

OSCULATING  ELEMENTS  AT  TIME  T 3 TRUE  ANOM  3 

SEM  MAJ  AXIS  = ECCENT.  3 PERICENT.  3 

APOCENT.  3 INCLINATION3 ARG  PERIC.3  

PERIOD  3 MEAN  MOT.  3 RA  ASC  NODE  3 

M ANOMALY  3 E ANOMALY  3 T PERIC.  3 

UNIT  PERICENTER  POSITION  VECTOR  - 

UNIT  ANGULAR  MOMENTUM  VECTOR  3 


All  values  are  printed  with  the  format  1PD24.15. 


5 1 


ir 


I 
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ELCO  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

T 

X 

Current  time,  t. 

10 

u 

INTEG 

Logical  unit  of  printer  output. 

RD 

u 

HENRY 

Radians -to-degrees  conversion  factor. 

IPT 

X 

Print  flag  indicating  whether  osculating 
elements  are  to  be  printed. 

XMU 

X 

Gravitational  constant  of  reference 
body,  n. 

NOP?  (72) 

u 

INTEG 

Array  of  option  selector  flags. 

REKM 

u 

HENRY 

Number  of  kilometers  in  one  Earth 
radius. 

THET 

u 

HENRY 

Change  in  eccentric  anomaly  since 
last  rectification. 

MDIST 

u 

HENRY 

Factor  for  converting  from  AU  to 
Earth  radii. 

PBLOC 

(30) 

su 

Array  in  which  osculating  elements 
are  stored  in  the  following  order: 
a,e,rp,ra,l,  to,  r.n.O,  M,  E or  F, 

t , r , h. 

Pf  P 

POSIT  (3) 

ux 

Input  position  vector,  R. 

VELOC(3) 

ux 

• 

Input  velocity  vector,  R. 

IREFNO 

u 

INTEG 

Reference  body  identification  number. 

PBL0C1<2) 

su 

Array  containing  time  t and  the  true 
anomaly  f,  in  that  order. 
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Name: 


EPH 


Calling  Arguments:  N,  TT,  X,  XD 

Referenced  Sub-programs : None 

Referenced  Commons:  IEPH,  LAMB,  ODBALL 

Entry  Points:  None 

Referencing  Sub-programs:  EPHEM,  FNMAT 


Discussion:  Subroutine  EPH  is  an  analytical  ephemeris  routine  which  computes 
the  heliocentric  position  and  velocity  of  a planet  in  the  mean  equinox  and  ecliptic 
frame  of  date.  Mean  elements  are  evaluated  as  quadratic  functions  of  time  for 
eccentricity  e,  inclination  i,  longitude  of  node  fJ , longitude  of  periapse  II , 
and  mean  longitude  6.  The  sixth  element,  the  semi-major  axis  a,  is  assumed 
constant  in  time.  Coefficients  and  constants  are  stored  in  data  arrays  for  each  of 
the  nine  planets  of  the  solar  system.  The  values  currently  in  use  are  listed  in  the 
table.  The  gravitational  constant  fi  for  each  planet  is  also  stored.  Provisions 
are  also  available  for  inputting  constant  elements  for  an  arbitrary  body,  referred 
to  as  Oddball. 


The  mean  elements  are  evaluated  with  the  formulas, 
e = e1+e2r  + e3r2, 

I = tl  + I2T+*3r2' 

o=o1  + n2r.n3T2, 

n=.  Vn2T  + n3r2, 

e=mod  [01+sign(r»)(02lr'|+e3r»2)], 

where  the  subscripted  characters  denote  stored  coefficients  for  a given  celestial 


m 


body,  r Is  the  date  on  which  the  position  and  velocity  are  to  be  evaluated 
measured  In  Julian  centuries  from  January  0.5,  1900,  T'  is  the  same  date 
but  measured  from  January  0.5,  1965,  and  mod  signifies  that  0 Is  evaluated 
modulo  2ff  (i.e.,  0 £ 0s  2tr  radians). 

The  constant  elements  for  Oddball  are  input  In  terms  of  the  semi- 
major axis,  the  eccentricity,  the  inclination,  the  longitude  of  ascending  node, 

the  argument  of  perihelion,  to,  and  the  Julian  date  of  perihelion  passage,  t . 

P 

The  eccentricity,  inclination,  and  longitude  of  ascending  node  are  immediately 
stored  in  the  locations  for  e^,  1,  and  0 , respectively.  II  ^ is  equated  to 
+ to*,  r'  is  set  to  the  current  date  minus  the  date  of  perihelion  passage; 
and 

W 

82  = 2001T  /l/a3  . 

The  coefficients  e , e , t , i , O , Ci  , H , II  and  0 are  set  to  zero, 
2323  2 3 2 3 3 

and  the  quadratic  equations  defined  above  are  then  used  to  evaluate  the  current 
osculating  elements  for  the  arbitrary  body. 

The  mean  anomaly  M is  evaluated, 

M ®*  8 - n , 

from  which  the  eccentric  anomaly  E is  calculated  by  solving  the  equation 

M = E-eslnE, 

iteratively  using  Newton's  method.  A total  of  200  iterations  are  permitted 

-15 

to  converge  on  E to  a tolerance  of  10  radians.  If  this  number  of  itera- 
tions is  reached,  a message  is  printed  and  the  current  value  of  E is  used  for 
all  subsequent  calculations.  The  argument  of  perigee  is  evaluated 

tt«II  - O, 
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and  the  position  vector  Is  obtained  In  the  orbit  plane  coordinates 

x^=  a(cos  E - e), 

yw=  a / 1 - e2  sin  E , 


where  Is  the  component  along  the  perihelion  vector  and  is  the  com- 
ponent along  the  semi-latus  rectum,  positive  In  the  sense  of  motion  at  perihelion. 

The  transformation  matrix  A that  rotates  the  position  vector  in  orbit 
plane  coordinates  to  the  ecliptic  system  used  by  ASTOP  is  then  evaluated.  This 
matrix  is 

(-cos  Osin  to-  sin  flcos  tocos  i) 
(-sin  frsin  <o+  cos  flcos  tocos  i) 
cos  to  sin  i 


If  the  common  variable  NC  is  not  equal  to  1,  the  planetary  velocity  is 
evaluated  prior  to  returning  to  the  calling  program.  The  velocity  is  first  evaluated 
in  orbit  plane  coordinates  as  follows: 


A ■ 


(cos  flcos  to-  sin  flsin  tocos  i) 
(sin  flcos  to+  cos  Osin  tocos  i) 
sin  tosin  i 


so  that  the  planetary  position  vector  is  defined 


" to 


(0 


7a(l+M/Ms) 

a(l  - e cos  E) 


sin  E , 


J a(l+ji/Mg)(l-e2) 

y = - ■■  ■ 

<0  a(l-ecosE) 


cos  E , 


20  3 2 

where  fi  is  the  sun's  gravitational  constant  (=1.32718x10  m /sec  ),  and 
8 

then  in  ecliptic  coordinates: 


R * A 
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PLANETARY  GRAVITATIONAL  AND  ORBITAL  CONSTANTS 


EPH-5 


Messages  and  Printout:  if  the  Newton's  iteration  for  eccentric  anomaly  falls, 
the  following  message  is  printed: 

MDC  EPH  ERROR 


EPH  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

N 

UX 

Planet  identification  number 

N ■ 1 - Mercury  6 - Saturn 

2 - Venus  7 - Uranus 

3 * Earth  8 - Neptune 

4 - Mars  9 - Pluto 

5 - Jupiter  10  - Oddball 

X(3) 

sx 

Ecliptic  posit  ton  vector,  R,  of  planet, 
in  AU. 

NC 

u 

IEPH 

Flag  defining  whether  planet’s  velocity 
is  to  be  evaluated. 

NC  ^ 1 - position  only  Is  computed 
NC  = 1 - position  and  velocity  are 
computed 

TT 

UX 

Time,  in  days,  measured  from  the 
input  Julian  launch  date. 

XD(3) 

sx 

• 

Ecliptic  velocity  vector,  R,  of  planet, 
in  units  of  Earth  mean  orbital  speed. 

CNI 

u 

ODBALL 

Ecliptic  inclination  i >f  Oddball,  in 
radians. 

EC1 

u 

ODBALL 

Eccentricity  e of  Oddball's  orbit. 

OMI 

u 

ODBALL 

! 

Longitude  of  ascending  node  0 of 
Oddball's  orbit  on  ecliptic  plane,  in 
radians. 
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I 

I 

! 

I 


I 

I 

I 


i 


I 

I 

I 

I 

I 

I 

I 

I 


EPH  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

SAI 

U 

ODBALL 

Semi-major  axis  a of  Oddball's  orbit, 
In  AU. 

SOI 

u 

ODBALL 

Argument  of  perihelion  (0  of  Oddball's 
orbit,  In  radians. 

TPI 

u 

ODBALL 

Julian  date  (minus  2400000)  of  peri- 
helion passage  of  Oddball. 

XJLD 

u 

LAMB 

Julian  date  (minus  2440000)  of  input 
launch  date. 

EMUDD 

u 

ODBALL 

Gravitational  constant  /z  of  Oddball, 
In  nrtysec^. 

( 

* 

i 
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C**«?  tt?tt  • IH'fMCdvili  StAHntftT) 


Name: 


EPHEM 


Calling  Arguments:  None 

Referenced  Sub-programs:  EPH 

Referenced  Commons:  HENRY,  IEPH,  NORM,  NORML 

Entry  Points:  None 

Referencing  Sub-programs:  INIT 

Discussion:  This  subroutine  generates  tables  of  ephemeris  data  for  the  eight 
planets  from  Venus  outward  to  Pluto.  This  subroutine,  as  presently  coded, 
restricts  the  program  to  missions  having  one  of  these  eight  planets  as  the  launch 
planet  and  one  as  the  final  target.  The  ephemeris  data  consist  of  up  to  250 
entries  for  each  position  and  velocity  coordinate  tor  each  of  the  eight  planets. 

The  data  points  are  equally  spaced  in  time,  starting  24  hours  prior  to  the 
input  Julian  launch  date  XJLD.  The  time  interval  between  points  is  defined  by 
the  variable  DLEPH. 

Upon  entry  to  EPHEM,  the  flag  NC  is  set  to  1 to  assure  that  all  calls 
to  subroutine  EPH  results  in  the  computation  of  planetary  velocity  vectors  as 
well  as  position  vectors.  An  internal  flag  is  then  tested  to  see  if  EPHEM  has  been 
entered  previously  during  the  current  run.  If  so,  a return  to  the  calling  routine 
INIT  is  immediately  executed.  This  assures  that  the  ephemeris  tables  are  loaded 
only  once  each  run.  If  there  was  no  previous  entry  to  the  subroutine,  the  internal 
flag  is  set  for  future  calls  to  EPHEM,  and  the  logic  to  generate  the  ephemeris 
tables  continues. 

A constant  is  evaluated  to  convert  velocity  units  from  Earth  mean  orbital 
speed  (as  returned  by  subroutine  EPH)  to  AU/day.  The  Integer  array  ITBL,  which 
defines  the  starting  location  of  position  and  velocity  data  for  each  planet  in  the 
ephemeris  table  TBBL,  is  initialized,  the  initial  time  point  T for  the  ephemeris 
table  is  set  at  -24  hours  (relative  to  the  input  launch  date)  and  stored  in  the 


common  variable  TREF,  and  the  ephemeris  table  entry  counter  IT  is  initialized 
to  zero.  A loop  is  then  entered  which  results  in  the  storing  of  the  desired  data 
in  TBBL.  The  loop  begins  by  incrementing  the  counter  IT  by  1,  converting  the 
current  time  from  the  launch  date  to  days,  and  calling  subroutine  EPH  a to. a1  if 
eight  times  to  obtain  the  heliocentric  ecliptic  position  and  velocity  vectois  of  the 
eight  planets.  The  position  vectors  of  all  planets  at  the  current  time  are  tompe- 
rarlly  stored  in  the  internal  array  XNTV  and  the  velocities  are  stored  in  XNX. 

The  signs  of  the  three  position  and  three  velocity  components  of  the  Earth  t re 
changed  so  that  the  array  actually  contains  the  position  and  velocity  of  the  sun 
relative  to  Earth  and  the  position  and  velocity  of  all  other  planets  relative  to  the 
sun.  This  is  the  format  expected  by  ASTOP.  The  ephemeris  data  are  then  stored 
in  the  appropriate  locatirns  of  the  permanent  array  TBBL  after  converting  the 
units  of  the  velocity  coordinates.  The  current  time  is  then  incremented  DLEPH 
hours  and  control  is  transferred  to  the  top  of  loop.  This  loop  is  cycled  until 
either  the  current  time  exceeds  an  input  time  limit  TIMEL  or  the  limit  of  250 
time  points  was  entered  in  the  table.  In  the  latter  case,  a message  is  printed 
to  inform  the  user  to  check  the  input  TIMEL  on  future  runs  to  see  if  the  number 
of  ephemeris  computations  may  be  reduced.  TIMEL  should  be  approximately 
equal  to  the  flight  time  plus  96  hours,  if  the  flight  time  is  less  than  1000  days, 
and  add  an  additional  96  hours  to  the  flight  time  for  each  additional  1000  days  of 
flight  time  or  fraction  thereof. 

When  computed,  the  TBBL  array  has  the  following  format: 

TBBL(l)  -TBBL(250)  - x component  of  sun  position  w.r.t.  Earth  for  all  time  points 
TBBL(251)~TBBL(500)  - y component  of  sun  position  w.  r.t,  Earth  for  all  time  points 
TBBL(501)-TBBL(750)  - z component  of  sun  position  w.  r.t.  Earth  for  all  time  points 
TBBL(751)-TBBL(1500)  - x,  y,z  components  of  Jupiter  position  w.r.t.  sun  for  all  time  points 
TBBL(1501)-TBBL(2250)-x,  y,  z components  of  Mars  position  w.  r.  t.  sun  for  all  time  points 
TBBL(2251)-TBBL(3000)-x, y, z components  of  Venus  position  w.r.t.  sun  for  all  time  points 
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TBBL(3001)-TBBL(3.750)-x,  y,  z components  of  Saturn  position  w.  r.t.  sun  for  all  time  points 
TBBL(3751)-TBBL(4500)-x, y,  z components  of  Uranus  position  w.  r.t.  sun  for  all  time  points 
TBBL(4501)-TBBL(5250)-x,  y,  z components  of  Neptune  position  w.  r.  t.  sun  for  all  time  points 
TBBL(5251)-TBBL(6000)-x, y,  z components  of  Pluto  position  w. r.t.  sun  for  all  time  points 

Velocity  components  are  stored  6000  words  after  the  corresponding  popt^on 
components. 

Messages  and  Printout  If  the  full  250  time  points  are  used  in  constructing  the 
ephemeris  table  TBBL,  the  following  message  is  printed  fcv  ‘..formation  purposes: 

EPHEMERIS  TABLE  FILLED.  CHECK  INPUT  PARAMETER  TIME! 

ON  FUTURE  RUNS  FOR  POSSIBLE  REDUCTION  IN  EPHEMERIS 
COMPUTATIONS. 


EPHEM  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

NC 

S 

IE  PH 

Flag  defining  whether  planetary 
velocity  is  to  be  computed  by  sub- 
routine EPH. 

■w 

NC  ^ 1 - compute  planetary  position  only 
NC  = 1 - compute  planetary  position  and 
velocity. 

I 

TT 

SA 

Time,  in  days,  from  input  launch  date. 

I 

I 

ION (10) 

SA 

Array  of  planet  ID  numbers  which 
correlates  the  planet  ID  number  used 
by  EPH  with  the  order  data  are  stored 
in  TBBL. 

I 

XNX(72) 

UA 

Velocity  vector  returned  by  subroutine 
EPH.  Only  first  24  locations  are  used. 

I 

I 

I 
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EPHEM  EXTERNAL  VARIABLES  TABLE  (cent) 


Variable 

Use 

Common 

Description 

ITBL(22) 

S 

NORM 

Table  defining  the  starting  locations 
for  the  storage  of  position  data  and 
velocity  data  in  TBBL  for  each  planet. 
The  values  assigned  are  the  starting 
locations  minus  1,  and  are  as  follows: 

ITBL(l)  = 0 - Sun's  position 
ITBL(2)  = 750  - Jupiter  position 
ITBL(3)  = 1500  - Mars  position 
ITBL(4)  = 2250  - Venus  position 
ITBL(5)  = 3000  - Saturn  position 
ITBL(6)  = 3750  - Uranus  position 
ITBL(7)  = 4500  - Neptune  position 
ITBL(8)  = 5250  - Pluto  position 
ITBL(12)  = 6000  - Sun's  velocity 
ITBL(13)  = 6750  - Jupiter  velocity 
ITBL(14)  = 7500  - Mars  velocity 
ITBL(15)  = 8250  - Venus  velocity 
ITBL(16)  = 9000  - Saturn  velocity 
ITBL(17)  = 9750  - Uranus  velocity 
ITBL(18)  = 10500  - Neptune  velocity 
ITBL(19)  = 11250  - Pluto  velocity 

REKM 

U 

HENRY 

Number  of  kilometers  in  one  Earth 
radius. 

TBBL 

(12000) 

s 

NORML 

Array  of  planetary  ephemeris  data. 
See  Discussion  for  format.  Only 
first  12000  words  are  used. 

TREF 

s 

NORM 

Beginning  time,  in  hours  from  the 
input  launch  date,  of  the  ephemeris 
data  table  TBBL. 

XNTV(72) 

UA 

Position  vector  returned  by  subroutine 
EPH.  Only  first  24  locations  are  used. 

DLEPH 

U 

NORM 

Time  interval,  in  hours,  between 
entries  in  ephemeris  data  table. 

EPHEM  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable  I Use 


Common 


Description 


TIMEL 


HENRY  Time  limit,  in  hours  from  the  input 
launch  date,  beyond  which  the  con- 
struction of  the  ephemeris  data 
table  is  discontinued. 


XDIST 


HENRY 


Number  of  Earth  radii  in  one  AU. 
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FINDXB 


Referenced  Sub-programs:  INT 


Referenced  Commons: 


ALAN,  HENRY,  ILEF,  INTEG,  JERR,  LEFT, 
NORM 


Entry  Points: 


None 


Referencing  Sub-programs:  SOLENG 


Discussion:  Subroutine  FINDXB  defines  the  Instantaneous  direction  of  the  body 
fixed  unit  vector  s when  operating  In  the  constrained  mode.  If  the  flag  NOPG4 
Is  1,  s Is  directed  from  the  spacecraft  to  the  celestial  body  identified  by  NOP63; 
If  NOP64  is  3,  s Is  directed  parallel  to  the  heliocentric  velocity  vector;  ii 
NOP64  Is  2,  a return  from  the  routine  Is  immediately  executed  so  that  the  Input 
s is  preserved. 

The  computation  of  s for  the  case  in  which  It  Is  directed  toward  a pres- 
cribed celestial  body  consists  simply  of  unitizing  the  negative  of  the  appropriate 
position  vector  In  the  VCOL  array.  For  the  case  In  which  i Is  directed  along 
the  heliocentric  velocity,  the  computation  depends  on  the  current  reference  frame 

of  integration.  If  the  sun  Is  the  current  reference  body,  then  the  velocity  R re- 

c 

latlve  to  the  current  reference  body,  contained  in  the  array  XRDL,  Is  used  directly 
after  dividing  by  the  magnitude.  If  the  reference  body  Is  Earth,  then 

*»»*■ 

IV«ESI 

where  Rgg  Is  the  heliocentric  velocity  of  the  Earth,  obtained  by  reversing  the 
velocity  of  the  sun  relative  to  Earth,  Rgg . Rg^  Is  obtained  by  Interpolating 
within  the  ephemerls  data  using  subroutine  INT,  and  applying  a conversion  factor 
to  achieve  the  correct  units.  If  the  reference  body  Is  the  moon*,  then 

♦AST OP  presently  does  not  support  the  capability  of  moon  reference.  However, 
this  subroutine  handles  the  option  should  It  be  Included  In  ASTOP  later. 
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- s RC  + rme  + res 

^RC  + RME  +RES^ 

where  R is  the  velocity  of  the  moon  relative  to  Earth,  obtained  by  interpo- 
ME 

lating  within  the  ephemeris  data  table.  For  any  other  available  reference  body 

R +Roc 
**  c BS 


|R  + R_J 
1 c BS 


where  R is  the  velocity  of  the  reference  body  relative  to  the  sun,  obtained  by 
BS 

interpolating  within  the  ephemeris  data  table. 


FINDXB  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

L 

UX 

Integer  index  defining  the  specific 
perturbation  or  nominal  trajectory 
for  which  the  computations  for  s 
are  to  be  made. 

T 

SUA 

ALAN 

Time  in  hours  from  the  start  of  the 
trajectory. 

ER(i') 

SU 

JERR 

Unit  constraint  vector,  s . 

UK 

SU 

INTEG 

Index  of  the  VCOL  array  relating  data 
to  specific  celestial  bodies. 

ITBL 

(22) 

U 

NORM 

Array  of  indexes  identifying  location 
of  ephemeris  data  by  planet.  (See 
EPHEM). 

VCOL 
( 72,20) 

u 

LEFT 

Array  of  spacecraft  position  vectors 
relative  to  each  celestial  body  for  the 
nominal  and  perturbation  trajectories. 

XNIX 

(3) 

SU 

HENRY 

Used  for  temporary  storage  of  a vector. 
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FINDXB  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

XN2X 

(3) 

SUA 

HENRY 

Array  used  to  receive  velocity  vector 
from  subroutine  INT. 

XRDL 

(6,20) 

U 

. LEFT 

Array  of  velocity  vectors  of  spacecraft 
relative  to  the  current  reference  body 
for  nominal  and  all  perturbation  tra- 
jectories. 

DLEPH 

UA 

NORM 

Time  Interval  In  hours  between  entries 
of  ephemerls  data. 

NOP63 

U 

ILEF 

Integer  flag  defining  celestial  body  to 
which  i Is  to  be  directed.  Options  are 
the  same  as  for  the  launch  reference 
body  number  IREFNB. 

NOP64 

u 

ILEF 

Integer  flag  defining  the  steering  con- 
straint mode. 

«=1  - s Is  directed  toward  the  celestial 
body  defined  by  NOP63. 

=2  - s Is  directed  along  an  Input 
Inertial  vector. 

*3  - s Is  directed  along  the  heliocentric 
velocity  vector. 

XDB5T 

u 

HENRY 

Number  of  Earth  radii  in  one  AU. 

IREFNO 

u 

INTEG 

Reference  body  ID  number  as  follows: 

1 Earth  5 Mars  9 Neptune 

2 not  available  6 Jupiter  10  Pluto 

3 Sun  7 Saturn 

4 Venus  8 Uranus 

FINDXB-5 


chart  titlc  - *o*-mocr curai  stath*c*ts 


******  ****'? 


Referenced  Sub-programs: 


DIAG1,  EPH,  INT,  RADII 


Referenced  Commons:  ALAN,  AMI,  CONRAD,  FNM,  HENRY,  HER,  HIS 

IEPH,  INTEG,  JERR,  LEFT,  NOMLL,  NORM, 
PERAPS,  XMMM 


Discussion:  Subroutine  FNMAT  is  called  at  the  end  of  each  trajectory  to  evaluate 
the  specified  end  conditions  and,  if  required,  the  partial  derivatives  of  the  end 
conditions  and  performance  index  with  respect  to  the  independent  parameters. 
Upon  entry,  the  reference  body  of  integration  is  checked  and,  if  not  the  sun  or 
the  specified  target  body,  a message  is  printed  and  execution  is  terminated. 

The  particular  iterator  being  used  to  perform  the  parameter  optimization, 
and  to  solve  the  boundary  value  problem,  permits  the  selection  of  the  performance 
Index  of  the  problem  from  the  same  list  of  functions  available  for  specification 
as  final  conditions.  Regardless  of  whether  a function  is  specified  as  the  perfor- 
mance index  or  a final  condition  that  is  to  be  satisfied,  the  Iterator  requires  as 
inputs  the  value  of  the  function  on  the  current  nominal  trajectory  and  the  partial 
derivatives  of  the  function  with  respect  to  all  the  independent  parameters  of  the 
problem. 

We  permit  any  specific  final  condition,  f,  to  be,  in  its  most  general 
form,  an  explicit  function  of  the  final  state,  y^,  the  final  time,  t^,  the  space- 
craft design  or  propulsion  system  parameters,  /8,  and/or  the  initial  state,  yQ 

f * f(yf,  fj*  ft  > yQ)  • 

Then,  denoting  the  independent  parameters  of  the  problem  as  y,  the  desired 
partial  derivatives  of  f are 
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*1 


1 


i 


% 


df 

by 


b f 


»f  8lf  . it  bB  M dy0 

*(0'  *>  + a^  T$*-i)iy*zf0'W 


where  #(o,  t)  is  the  transition  matrix  over  the  entire  trajectory  which  is 
developed  in  the  calling  subroutine  GENMA.  Clearly  the  partials  dt^/dy, 
bfi/by,  and  Sy^/Sy  will  be  either  ™?rr  ~r  one  since  t^,  8,  and  y q are 
potential  Independent  parameters.  Consequently,  the  only  derivatives  that  are 
as  yet  undefined  are  those  of  f with  respect  to  y^,  t^,  8,  and  yQ.  Of  course, 
these  depend  on  the  specific  form  of  f and,  in  order  to  write  them  down,  it  is 
Imperative  to  list  the  final  conditions  to  be  made  available  for  optional  use. 

This  list  of  conditions,  along  with  the  concomitant  partial  derivatives,  follows. 

Mass:  The  mass-related  functions  that  shall  be  available  for  end  conditions 

include  the  final  mass,  ny  and  the  net  spacecraft  mass,  m^  (frequently  referred 

to  as  payload).  For  the  purpose  of  this  program,  the  total  spacecraft  mass,  mQ, 

is  assumed  to  consist  of  the  power  plant  m , propellant  m , tankage  m,, 

PP  P t 

structure  m .,  net  spacecraft  m , and  when  applicable,  retro  state  propellant 
st  n 

m and  structure  m •,  i.  e., 
rp  rt 

m = m +m  + m + m + m +m+m 
o pp  p t st  rp  rt  n 

-v  /a  „ 

* a1  e po  2 - ag 


where  a , a and  a are  performance  coefficients  representative  of  the  specified 
X it  3 

launch  vehicle,  and 


m **  a p 
pp  ps  o 


m.  **  k.  m 
t t p 

m . *=  k Am 
st  st  o 


mrp=m(tf)a-e"Av/Cr) 


m , **  k m 
rt  r pr 
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with  ct  being  the  specific  mass  of  the  propulsion  system;  k,  k and  k are 
ps  t St  X* 

structural  scaling  factors;  Av  is  the  retro  maneuver  velocity  increment;  and  c^ 
is  the  jet  exhaust  speed  of  the  retro  stage  engine.  Of  course,  m(t^.)  is  the  final 
spacecraft  mass  just  prior  to  any  retro  maneuver.  For  capture  missions,  im- 
pulsive thrust  is  assumed  for  the  retro  maneuver.  Of  course,  there  is  no  retro 
maneuver  for  flyby  missions.  Capture  orbits  will  be  defined  in  terms  of  the  peri- 
focal and  apofocal  distances,  r^,  and  r^,  relative  to  the  target  planet,  and  the 
retro  maneuver  will  be  assumed  to  take  place  at  perifocus.  Consequently,  the  in- 
cremental velocity,  Av,  of  the  retro  maneuver  is  equal  to  the  difference  between 
the  speed  at  perifocus  of  the  hyperbolic  trajectory  on  which  the  spacecraft  approaches 
the  target  planet  and  at  perifocus  of  the  desired  elliptic  orbit.  That  is,  we  define 


Av“v_ 


-( 


fVVa 

rTp<fTp  + rTa) 


v - &•*(£- -•£)! 


) 


1 

2 


where  is  the  gravitational  constant  of  the  target  planet  and  a^  is  the  semi- 
major axis  of  the  planetocentric  hyperbolic  approach  trajectory  as  evaluated  at 
the  final  time.  Of  course,  on  any  specific  trial  trajectory  in  the  iteration,  the 
planetocentric  distance  at  the  end  of  the  trajectory  may  not  be  the  perifocal  dis- 
tance desired.  In  fact,  depending  on  the  specific  condition  used  to  terminate  the 
trajectory,  the  final  position  may  not  even  be  a perifocal  point.  Thus,  prior  to 
convergence,  the  Av  will  not  represent  a meaningful  quantity,  but  as  the  iteration 
proceeds  to  the  solution,  Av  will  take  on  the  value  desired.  The  important  points 
are  that  the  definition  of  Av  remains  consistent  throughout  the  iteration,  is  re- 
presentative of  each  trial  trajectory,  and  converges  to  the  desired  quantity  when 
the  specified  end  conditions  are  satisfied. 


The  final  mass  is  evaluated  as  follows; 
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I 


i 

I 


i 


FNMA  T -3 


or 


m,  * m(t,)-  m 
f ' f rp 

..  . -Av/c 
mf  = m(tf)e  r 


and  the  required  partial  derivatives  are 


d m^ 

am(t{) 

T*f  = 

8yf  e 

dm^ 

m(tf)  _ 

*T‘ 

" 6 
C 

r 

dmf 

a T= 

^T=0 

+ 


dy# 


at. 


Since  m(t^)  is  the  final  value  of  one  of  the  state  variables,  dm(t^)/dy^ 
of  seven  elements  consisting  of  6 zeroes  and  a one.  The  partlals  of  | 
be  derived  in  a subsequent  paragraph. 

The  net  spacecraft  mass  is  evaluated 


m = m - m -m-m-na 
n f pp  t st  rt 


Rewriting  in  a more  suitable  form  for  differentiating 

m = f(l+k  ) e ^v//cr  +k  - k lm(t.,)-(k  +k  )m  -a  ] 
n U'  r t rJ  r ' t st  o psJ 


then 


dm 


Ha+kr> 


-Av/ct 


, „ , e 'r  +k  -k  1 -r— 1 - + — (1+k  )e 

dy  L'  t'  t rJ  dy,  c 


dm(tf)  m(tf) 


dm  m(t.) 

—a £-  (x+k  ) e 

St(  cr 

dm^  dpQ 

d j8  ttps  d 


f r 
-Av/c  * 'Vi1 


dt. 


is  a matrix 
RT(tf)l  will 


Av/cr  d I^T(tf^ 

ayf 


f 


I 

I 


-4 

.1 


* 

It 


! » 


!% . * tk , fvv 

t st  a Sv^ 


where  vD  may  be  one  of  the  y *s  directly  or  related  to  the  y 's  through  the 
Ho  ° o 

equation 

2 • 2 • 2 . • 2 
v = x + y + z 

P P P P 
o o o Ho 

Of  course,  pQ  is  one  of  the  0’s  and  xp  , yp  , z*p  are  initial  state  variables 
such  that  their  partials  are  zeroes  and  ones.  ° 

Thrust:  To  permit  the  study  of  specific  thruster  systems,  it  may  be  de- 
sirable to  fix  thrust  level  while  allowing  power  level  and  specific  impulse  to  be 
optimized.  Thus,  thrust  is  placed  in  the  list  of  available  end  conditions  and  is 
evaluated  by  the  equation 

f = 2 ?7p  /c 
o o 

where  f represents  a reference  thrust  level,  which  is  the  actual  thrust  for  a 
nuclear  electric  propulsion  system  but  is  a maximum  thrust  at  1 AU  for  a solar 
electric  system,  c is  the  jet  exhaust  speed  and  r)  is  the  propulsion  system 
efficiency.  The  required  partial  derivatives  are 


in 


If 


df 
o 


af  3f 


at. 


= o 


it 


with 


^£=2  5 ^2.(±H  _l)*£ 

a/J  c dj8  c'dc  c/d,S 


la  =2  s (i-s) 

dc  c N b / * 

The  derivative  of  ij  with  respect  to  c comes  from  the  assumed  relationship 
between  t)  and  c given  in  the  description  of  subroutine  SOLENG. 
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Heliocentric  Position  and  Velocity:  The  final  heliocentric  position  and 
velocity  may  be  specified  in  terms  of  the  Cartesian  components  of  the  two  vectors 
or  in  terms  of  such  position  and  velocity-related  parameters  as  radial  distance  r, 
speed  v,  flight  path  angle  y,  semi-major  axis  a,  eccentricity  e,  aphelion  dis- 
tance r&,  and/or  perihelion  distance  r^.  The  Cartesian  components  of  position 
and  velocity  are  the  state  variables  of  the  problem  and  are  immediately  available. 
The  partial  derivatives  of  the  components  are  also  immediately  available  from  the 
matrix  $(o,  t).  The  other  parameters  and  their  derivatives  are  formed  from  the 
state  variables  as  follows: 


r = (R  • R) 


Sr  _ u 

---  (u  = x,  y,  z) 


V **  (R  • R) 


dv  u • • • • 

— =-  (u  * x, y, z) 

du  V 


a = 


2-rv2/M 


3a.au  : av“  da  2a  u 

“ 'A  |j  )*  . #J 


du 

r 

y - sin”1  ^ 


2 

r 

R » R 
rv 


du 


) 


I 

du  rcos  y 


du 


(t  • r Sln  y) 


e=(1'a(2-a)COs2,')i 

de  _ 1 |~u  v2  n _ r 
du  e 


(u  = x,y,z;  u = x,y,z) 


(u=x,y,z, ; u = x,y,z) 


ru  v“  „ r . 2.  siny  r,/u  u , \1  <u=x,y,z 
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9e_ir2ru„  r,  2 rsin>\„  r./u  u . M . 

(l--)cos  y+ ‘ (2 sin y ) (u  = x,y,z; 

el  u a av  a \ r v / J '•  • • 

H u=x,y,z) 


r = a(l  + e) 
a 


Sr 


■SV  = a|j  + a*e)lt 

r = a(l  - e) 

P 


dr  . v 

p oe  . _ .da 

=-a  ~ + (l-e)T- 

du  du  °u 


(u=x,y,z;x,y,z)  . 


The  partials  with  respect  to  the  independent  parameters  are  then  formed  according 
to  the  general  equation  given  at  the  start  of  this  section,  with  u and  u representing 
a portion  of  y^.  The  partials  with  respect  to  t^,  /3,  and  yQ  are  zero. 

Planet ocentric  Position  and  Velocity:  By  input  option,  several  planetocentric 
position  and  velocity-related  parameters  are  available  as  end  conditions.  These  in- 
clude the  Cartesian  position  coordinates  x^,,  y^,  and  z^,  the  distance  r^,,  speed 
vT,  flight  path  angle  semi-major  axis  a^,  eccentricity  e^,  apocenter  dis- 

tance  rT  , and  pericenter  distance  rT  . Let  PT>  P^  be  the  heliocentric  posi- 
a p 

tion  and  velocity  of  the  target  planet  at  the  final  time.  Then  the  planetocentric  post- 
tion  and  velocity  of  the  spacecraft  at  the  final  time  are 


R=  R - P_ 
T T 

Rt  = «-pt 


with  components  xT>  y^,  z^,  and  x^,  y^,  z respectively.  Since  both  P^, 

• • 
and  P^,  are  functions  only  o!  final  time,  the  partial  derivatives  of  R^  and  R^ 

with  respect  to  any  Independent  parameter  ot  are 


dR 

da 


T da 
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and 


5R 

da 


; !i 

T da 


♦ • 
Consequently,  the  partials  of  R^  with  respect  to  a will  equal  those  of  R except 

when  a Is  the  final  time;  for  this  latter  case,  an  additional  term  Is  added  to  the 

heliocentric  partials  to  obtain  the  planetocentrlc  partials. 


Then,  employing  the  standard  deflations 


rT  = <rt  * Rt) 

vT  = (Rt  ‘ R T)*  = |Rf(tf) 


= sin 
T 


•1  ( rt  * rt  \ 

rTVT 


T (2“rTVT2/MT) 


e = (l  - — (2-^)cos2v  V 
T V a„  a J '7/ 


rT  'aT(1+eT) 
a 

rT  = aT  a-eT). 
p 


The  partial  derivatives  with  respect  to  xT>  y^,  z^,  x^,  y^,  z^  are  identical 
to  those  for  the  heliocentric  parameters  except  a subscript  T Is  added  to  all 
symbols. 


Due  to  the  large  sensitivities  inherent  In  targeting  on  the  planetocentrlc 
perlapse  distance  r , It  Is  necessary  to  transform  any  problem  with  this  end 

Ap 

condition  to  one  with  an  alternate  set  of  end  conditions  which  are  less  sensitive. 
The  transformation  used  here  is  described  In  subroutine  XYZ  and  Involves 
the  definition  of  a final  planetocentrlc  position  vector,  which,  coupled  with 
the  final  velocity,  yields  the  desired  perlapse  distance.  The  partials  of  these 
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transformed  end  conditions  are  given  above. 

i After  completing  the  evaluation  of  all  end  conditions  and  partial  derivatives, 

« * 

If  required,  a call  to  DIAG1  Is  made  to  print  the  Iteration  summary,  and  a return  to 

i 

| GENMA  is  executed. 

Messages  and  Printout:  If  the  reference  body  at  the  final  time  Is  neither  the  sun  nor 
i the  specified  target  body,  the  following  message  is  printed: 

TRAJECTORY  TERMINATED  IN  REFERENCE  OTHER  THAN  SUN  OR  TARGET 
1 PLANET.  RUN  TERMINATED  IN  SUBROUTINE  FNMAT. 


FNMAT  EXTERNAL  VARIABLES  TABLE 


i : 

Variable  Use 

Common 

Description 

i 

i 

Q(30) 

S 

XMMM 

Array  of  dependent  variable  values  for 

i 

* - • 

i 1 

the  nominal  or  trial  trajectory. 

t 

t 

T 

SUA 

ALAN 

Current  time,  t,  in  hours  from  de- 

% 

j.i 

parture  of  launch  parking  orbit. 

i 

! 

| i 

BL 

U 

JERR 

Efficiency  law  coefficient,  b. 

i 

\ 

\ - - 
i 

CR 

U 

JERR 

Jet  exhauBt  speed  of  retro  stage,  c^. 

\ 

RD 

u 

HENRY 

Radians  to  degrees  conversion  factor. 

f 

RS(6) 

SUA 

Heliocentric  spacecraft  position  vector 

f 

i 

at  the  final  time,  R. 

i * * 

RT(6) 

SUA 

Planetocentrlc  spacecraft  position  vector 

r * ■ 

i . 

f 

at  the  final  time,  R^. 

TT 

SUA 

Final  time  in  days  from  departure  of  the 

!S  i 

launch  parking  orbit. 

XR(6) 

UE 

LEFT 

Spacecraft  position  vector  relative  to  the 

* m 

(XRL) 

current  reference  body. 

m ♦ 

AL2 

U 

JERR 

Launch  vehicle  performance  coefficient. 

: \ 

+ m 

V 

I 
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FNMAT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

AL3 

U 

JERR 

Launch  vehicle  performance  coefficient, 

V 

Specific  propulsion  system  mass,  a . 

ps 

APS 

U 

JERR 

CHN(IOO) 

U 

HIS 

Array  of  parameters  available  as  inde- 
pendent parameters.  (See  discussion  of 
subroutine  INPUT). 

CPI  (7, 30) 

SU 

JERR 

State  transition  matrix,  $ . 

ETA 

U 

JERR 

Propulsion  system  efficiency  factor,  rj. 

UK 

SUA 

INTEG 

Index  of  ITBL  array  defining  the  reference 
body  for  which  the  ephemerls  data  is 
sought. 

IPS 

U 

IER 

Number  of  dependent  parameters  specified. 

NSL 

u 

HER 

Number  of  Independent  parameters 
specified. 

PFG(30, 30) 

SU 

HIS 

Partial  derivatives  of  dependent  parameters 
with  respect  to  independent  parameters, 

bi/by. 

RDS(6) 

SUA 

Heliocentric  spacecraft  velocity  vector  at 
the  final  time,  R. 

RTA 

U 

FNM 

Apoapse  distance  of  specified  capture  orbit 
about  target  planet,  rT  . 

Q 

RTP 

U 

FNM 

a 

Per  lapse  distance  of  specified  capture  orbit 
about  target  planet,  r^  . 

n 

VPA 

S 

CONRAD 

P 

Hyperbolic  excess  speed  of  planetocentrlc 
approach  trajectory. 

VTP 

SU 

CONRAD 

Periapse  speed  of  the  planetocentrlc 
hyperbolic  approach  trajectory,  v . 

P 
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FNMAT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

XKR 

U 

JERR 

Retro  stage  tankage  factor,  kr> 

XKT 

U 

JERR 

Electric  propulsion  stage  tankage 
factor,  kt  . 

DELV 

su 

CONRAD 

Incremental  speed  required  to  Insert 
spacecraft  Into  elliptic  capture  orbit  at 
pcrlapse,  Av. 

ITBL(22) 

u 

NORM 

Table  defining  the  starting  locations  for 
the  storage  of  position  data  and  velocity 
data  for  each  planet  In  the  TBBL  array. 
(See  discussion  of  subroutine  EPHEM). 

IVAR(100) 

u 

HER 

Array  of  Indices  defining  the  correlation 
between  entries  in  the  independent  variable 
arrays  and  the  CHN  array. 

NCLL 

s 

IEPH 

Flag  Indicating  whether  planetary  velocity 
Is  to  be  evaluated  by  subroutine  EPH. 

=1  - compute  planetary  position  and 
velocity 

fy  - compute  planetary  position  only. 

NCT1 

u 

HER 

Index  of  the  location  of  the  thrust/coast 
trigger  of  the  current  arc  In  the  TBIN 
array. 

NOMT 

su 

NOMLL 

i 

i 

Flag  Indicating  whether  perturbation 
trajectories  are  currently  being  Inte- 
grated. 

0 - perturbation  trajectories  are  being 

integrated. 

1 - nominal  or  trial  trajectory  only. 

NOPT(72) 

u 

INTEG 

Array  of  program  option  flags. 

POFL(30) 

su 

HIS 

Array  of  values  of  the  end  conditions. 
Index  Is  the  same  as  that  of  the  Input 
array  BY. 

I 


I 


T 
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FNMAT  EXTERNAL  VARIABLES  TABLE  (cont) 


— VSFiablT" 

Use 

Common 

Description 

RDOT(3) 

S 

PER  A PS 

Planetocentrlc  velocity  vector  at  final 
time. 

TBIN(122) 

U 

JERR 

Array  of  trajectory  arc  Information. 
(See  description  of  subroutine  INT'(JT/. 

XKST 

U 

JERR 

Spacecraft  structural  factor  k . . 

st 

XN1X(3) 

UA 

HENRY 

Position  vector  of  planet  returned 
from  subroutine  INT. 

XN2X(3) 

UA 

HENRY 

Velocity  vector  of  planet  returned 
from  subroutine  INT. 

XRDT(6) 

UE 

LEFT 

Spacecraft  velocity  vector  relative 

(XRDL) 

to  the  current  reference  body. 

XSQQ(12) 

U 

HENRY 

Array  of  gravitational  constants  of  the 
sun,  moon  and  planelb. 

DLEPH 

UA 

NORM 

Time  Interval  between  entries  in  the 
ephemeris  tables. 

IPOFL(30) 

U 

HER 

Array  of  Indices  correlating  the  entries 
In  the  Q array  end  the  POFL  or  Input 
BY  arrays. 

XMASS 

UE 

AMI 
(XI L) 

Current  mass  of  the  spacecraft  on  the 
nominal  or  trial  trajectory. 

IREFNO 

U 

INTEG 

Identification  number  of  the  current 
reference  body.  Possible  values  are 

1 - Ear*h  6 - Jupiter 

2 - not  available  7 - Saturn 

3 - sun  8 - Uranus 

4 - Venus  9 - Neptune 

5 - Mars  10  - Pluto  | 

IREFNT 

u 

INTEG 

Identification  number  of  the  specified 
target  body.  Options  are  the  same  as  for 
IREFNO. 
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FNMAT-37 


Name: 


FNPRNT 


Calling  Arguments: 
Referenced  Sub-programs: 
Referenced  Commons: 
Entry  Points: 

Referencing  Sub-programs: 


None 

SUMMRY,  TRAJL 

INTEG 

None 

ITMAT 


Discussion:  Subroutine  FNPRNT  Initiates  the  detailed  print  of  the  final  trajectory 
and  the  case  summary  page.  On  entry  the  input  option  flag  NOPT(60)  Is  stored  In 
a temporary  location  and  then  set  to  1 which  results  in  the  detailed  trajectory 
print.  Subroutine  TRAJL  is  then  called  to  Integrate  the  final  trajectory  for  print- 
ing. NOPT(60)  is  then  reset  to  Its  input  value  and  subroutine  SUMMRY  is  called 
to  print  the  case  summary  page.  A return  to  the  calling  program  is  then  executed. 


FNPRNT  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

NOPT{72) 

SU 

INTEG 

Array  of  input  option  flags.  NOPT(60) 
Is  used  in  FNPRNT.  When  set  to  1, 
NOPT(60)  causes  the  detailed  printing 
of  the  nominal  trajectory. 

preceding  page  blank  not  filmed 


275 


/ 


V 


FNPRNT-1 


FNPRNT-3 


Name: 


GENMA 


Calling  Argument:  N one 


Referenced  Sub-progiams:  FNMAT,  MIIP1 


Referenced  Commons:  • ALAN,  AMI,  AMI,  ENG,  HENRY,  HER,  HIS,  ILEF, 

INTEG,  JERR,  JHW,  LEFT,  LEON,  MEL,  NOMLL, 
STEVE,  VPLLL 


Entry  Points:  None 

Referencing  Sub-programs:  CONTRL 


Discussion:  Subroutine  GENMA  is  called  from  CONTRL  when  the  end  of  the 
current  trajectory  arc  is  detected.  The  purpose  of  GENMA  is  to  accumulate  the 
state  transition  matrix  for  the  nominal  trajectory  from  launch  to  the  current 
time.  The  state  transition  matrix  is  generated  by  dividing  the  numerical 
differences  in  the  state  on  perturbed  and  nominal  trajectories  by  the  magnitude 
of  the  perturbation.  The  desired  partial  derivatives  are  those  of  the  final  posi- 
tion, velocity,  and  mass  with  respect  to  each  independent  parameter  which  is  to 
optimized.  With  these  available,  the  partials  of  most  functions  and  end  condi- 
+,ons  of  interest  can  be  formed.  Note  that  this  definition  is  a generalization  of  the 
usual  definition  of  state  transition  matrix.  As  commonly  defined,  state  transition 
matrix  includes  partials  of  state  with  respect  only  to  state  at  an  earlier  time. 

Here  partials  with  respect  to  all  independent  parameters  are  included. 

A straightforward  approach  to  the  evaluation  of  the  transition  matrix  in- 
volves the  integration  of  a perturbation  trajectory  for  each  independent  parameter 
to  be  optimized.  For  a specific  case  involving  n independent  parameters,  as 
many  as  n+1  trajectories  (n  perturbed  plus  1 nominal)  could  be  required  to 
produce  the  desired  matrix.  Because  it  will,  in  general,  be  necessary  to  generate 
several  matrices  before  convergence  is  attuned,  it  is  clear  that  a large  number 
of  trajectories  must  be  integrated  to  yield  a solution.  It  so  happens,  however,  that 
because  of  the  particular  form  of  the  problem,  it  is  possible  to  generate  the  transi- 
tion matrix  with  fewer  than  the  standard  number  of  perturbation  trajectories.  This 
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circumstance  arises  because  the  orientation  angles  for  each  arc  of  the  trajectory 

are  treated  as  individual  control  parameters  which  directly  affect  the  motion  of 

the  spacecraft  only  over  a portion  of  the  trajectory.  For  example,  consider  a 

trajectory  consisting  of  two  ai’cs.  Let  y.,  i = 0, 1,2,  represent  the  state  at  the 

end  of  the  ith  arc  (0  denotes  the  start  of  the  first  arc)  which  occurs  at  time  t., 

let  a and  a represent  the  control  over  the  first  and  second  arc,  respectively, 
1 « 

and  let  8 represent  the  propulsion  system  and  spacecraft  design  parameters.  The 
particular  matrix  that  we  seek  may  be  written 


$(0,2) 


r!!? 

L^y„ 


Sy2  J 

; d/3  ; 

dV 

9y2 

2 


Here  y„  is  meant  to  include  the  time  L the  speed  v or  any  of  the  launch  park- 
J 0 0 po 

ing  orbit  orientation  angles  i,  Cl,  or  oo  that  are  declared  as  independent  variables. 
Alternatively,  it  will  include  only  initial  state  variables  that  are  not  fixed.  To  obtain 
this  matrix,  we  begin  by  integrating  the  nominal  and  perturbation  trajectories  over 
the  first  arc,  stopping  the  integration  at  t^  and  forming  the  ransition  matrix  for 
that  arc,  i.e. , 


dy 


II 


dC^  J 


where  the  partials  are  formed  by  simple  finite  differencing.  This  matrix  is  stored 
in  the  locations  allotted  for  the  final  matrix  $ (0, 2),  and  the  integration  of  the 
nominal  trajectory  is  continued  over  the  next  arc.  The  perturbation  trajectories 
are  not  continued,  however.  Rather,  a new  set  is  begun  at  time  t^  and  integrated 
over  the  interval  t^  to  t^.  There  is  a perturbation  trajectory  over  the  second  arc 
for  each  state  variable,  for  each  propulsion  system  and  spacecraft  design  para- 
meter, and  for  each  control  parameter  in  effect  over  that  arc, but  none  for  any 
control  parameters  of  a previous  arc.  At  the  end  of  the  arc,  one  forms  the 
partials 


I 
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Sy2  /y2'*  . Sy2 
^ ' [if)  ' a"d  ^ 

* 

where  (dy  /d/5)  are  the  partials  in  the  state  at  t due  to  variations  in  the  pro- 
2 2 

pulsion  system  and  spacecraft  design  parameters  over  the  second  arc  only.  Then, 
form  $ (0, 2)  through  the  operations 

* rSy 2 J Sy2  1 

*(0,2)  -!  ^ *(0,1) ; ^ J 


. /3y<i 


*(o,2)  = *(0,2)*  + [o  ; (•—)  ; o ; o 


II 

j~s 

3y2 

!ln 

1 - . 

LSy0  i 

s/s : 

da  J 
2 

Of  course,  the  extension  to  more  arcs  is  straightforward.  In  general,  we  seek 
the  matrix  $ (0,  i)  given  by 


r Ji 

^i 

Syi 

; 8yi  ; ; 

Uy0 

S/5 

! 9«2!  : 

» dv  * » » » 

*(0,i)  +[o  ;(tj’  ; o ; o ; ; o J 


» rSyt 

*(0.i)  -[5- 


**».*-»  IS.] 


Once  the  transition  matrix  is  formed  for  the  first  arc,  each  subsequent  arc  will 
add  to  the  matrix  a number  of  columns  equal  to  the  number  of  control  parameters 
in  effect  over  that  arc.  The  number  of  rows  remains  constant  and  is  equal  to  the 
number  of  state  variables. 
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It  should  be  noted  at  this  point  that  over  the  first  arc  of  the  trajectory,  per- 
turbation trajectories  need  be  run  only  for  those  particular  state  variables  for  which 
the  initial  values  will  be  permitted  to  vary  independently  and  for  any  other  independent 
parameters.  On  all  subsequent  arcs,  however,  it  is  necessary  to  generate  pertur- 
bation trajectories  for  the  current  independent  parameters  and  for  all  state  variables. 
Thus,  since  there  are  seven  state  variables,  the  matrix  (dyVSy.  ) will  be  7x7  for 
i^2  and  will  be  7xm  for  i-1  where  m is  the  number  of  independent  variations 
permitted  in  the  state  at  the  stai't  of  the  first  arc.  If  any  propulsion  system  or  space- 
craft design  parameters  are  to  be  optimized,  but  do  not  enter  into  the  problem  in  the 
first  arc,  it  is  convenient  to  enter  a column  of  zeroes  for  each  such  parameter  in  the 
transition  matrix  so  that  the  general  form  of  the  matrix  is  established  immediately, 
and  the  above  formula  for  $ (0,  i)  is  always  applicable  for  i^2.  As  an  example,  con- 
sider the  problem  of  a solar-electric  propulsion  mission  commencing  from  the  vicinity 
of  a low  altitude  orbit  about  Earth.  Suppose  the  initial  geocentric  speed  is  to  be 
optimized  as  are  the  power  level  and  jet  exhaust  speed  of  the  low-thrust  propulsion 
system  and  three  spacecraft  orientation  angles  over  each  arc.  The  first  arc  consists 
of  coasting  on  the  geocentric  hyperbolic  trajectory  to  a specified  time  t at  which 
the  low-thrust  system  is  turned  on.  The  only  independent  parameter  for  optimization 
over  this  first  arc  is  the  geocentric  speed  at  the  start  of  the  arc.  Consequently,  one 
perturbation  trajectory  over  the  first  arc  must  be  generated,  and  the  transition 
matrix  will  be  7x3.  The  first  column  is  associated  with  the  initial  geocentric  speed, 
and  the  last  two  columns  are  zeroes  which  are  entered  in  anticipation  of  future  effects 
of  variations  in  the  propulsion  system  parameters,  power  and  jet  exhaust  speed.  It 
may  be  argued  that  the  initial  mass  is  also  varying  due  to  its  dependence  on  the 
velocity,  but  it  is  precisely  because  the  variation  is  not  independent  that  a perturba- 
tion trajectory  for  the  initial  mass  is  not  required.  Over  the  second  arc,  a total  of 
twelve  perturbation  trajectories  are  required  — seven  for  the  state,  two  for  the 
propulsion  system  parameters,  power  and  jet  exhaust  speed,  and  three  for  the 
orientation  angles.  Following  the  procedure  indicated  above,  three  columns  (asso- 
ciated with  the  three  orientation  angles)  will  be  added  to  the  transition  matrix  such 
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that,  at  the  end  of  the  second  arc,  the  matrix  is  7x6.  The  continuation  of  this 
procedure  to  subsequent  arcs  is  then  clear. 


It  was  implicitly  assumed  above  that  the  time  at  the  end  of  each  arc  is 
fixed.  If  an  arc  end  time  is  left  open  for  optimization,  then  a column  must  be 
added  to  the  transition  matrix.  It  is  not  necessary  to  integrate  a perturbation 
trajectory  for  this  arc  end  time  as  the  partials  are  available  in  closed  form.  For 
example,  denote  t.  as  the  end  time  of  the  ith  arc  and  let  y.  represent  the  state 
at  t..  Then,  if  t.  is  to  be  optimized,  form  the  column  matrix 


. + 


y 


i 


where  the  minus  and  plus  signs  indicate  the  limits  of  the  time  derivative  of  y 

evaluated  just  before  and  just  after  the  end  of  the  arc,  respectively.  If  i is  the 

• + 

last  arc,  the  y . =0.  This  column  is  added  to  the  transition  matrix  and  subse- 

i 

quently  is  treated  in  the  identical  manner  as  the  partials  with  respect  to  the  con- 
trol parameters,  a.,  for  the  ith  arc.  Note  that  if  the  time  derivative  of  a 
state  variable  (such  as  position)  is  continuous  from  one  arc  to  the  next,  the  partial 
is  zero.  However,  for  velocity  and  mass,  the  switching  on  or  off  of  an  engine,  or 
the  change  of  a thrust  angle,  can  result  in  a finite  partial  derivative. 

In  addition  to  forming  the  state  transition  matrix,  GENMA  also  performs 
other  functions  required  at  the  end  of  each  arc.  If  NOPT(60)  is  non-zero,  sub- 
routine MliPl  is  called  to  print  the  trajectory  point;  the  position  and  velocity 
vectors,  as  well  as  the  Encke  integrals  £ and  £,  are  reset  to  the  nominal  values 
plus  perturbations  as  appropriate  on  all  perturbation  trajectories;  the  values  of 
the  spacecraft,  propulsion  system  and  orientation  parameters  for  the  next  arc  are 
stored  in  the  VBLOC  array  for  the  nominal  and  perturbation  trajectories  and  the 
sines  and  cosines  of  the  angles  are  formed  and  stored;  and,  at  the  end  of  the  final 
trajectory  arc,  subroutine  FNMAT  is  called  to  evaluate  the  partial  derivatives  of 
the  specified  end  conditions  and  the  performance  index  with  respect  to  all  independent 
parameters. 
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GENMA  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

V(20) 

UE 

JERR 

(VBLOC) 

Array  of  spacecraft  orientation  angles 
Pj  or  0.  for  the  next  arc  on  nominal 
and  perturbation  trajectories. 

X(20) 

UE 

JERR 

(VBLOC) 

Array  of  spacecraft  orientation  angles 
£.  or  0.  for  the  next  arc  on  nominal 
and  perturbation  trajectories. 

Z(20) 

UE 

JERR 

(VBLOC) 

Array  of  spacecraft  orientation  angles 
£.  or  0 ^ for  the  next  arc  on  nominal 
and  perturbation  trajectories. 

JN 

SU 

HER 

Number  of  spacecraft  orientation  angles 
on  the  next  arc  that  are  included  in  the 
list  of  independent  parameters. 

NJ 

U 

HER 

Counter  of  the  number  of  the  six  space- 
craft parameters  c,  p0,  a,  0,  6 and 
e that  are  included  in  the  list  of  inde- 
pendent parameters. 

NS 

SU 

ILEF 

Number  of  initial  state  related  variables 
that  are  included  in  the  list  of  independent 
parameters. 

N4 

SU 

ILEF 

Index  equal  to  4(i-2)+l  where  l is  the 
next  arc  number. 

ALP  (20) 

UE 

JERR 

(VBLOC) 

Array  of  angles  between  unit  array 

normal  vector  n and  its  projection  in 
the  body  fixed  I-J  plane  for  the  next 
arc  on  nominal  and  perturbation  tra- 
jectories. 

BET  (20) 

UE 

JERR 

(VBLOC) 

Array  of  angles  between  projection 

of  n in  the  body  fixed  I-J  plane  and 
the  thrust  vector  for  the  next  arc  on 
nominal  and  perturbation  trajectories. 

CHN(IOO) 

U 

HIS 

Array  of  values  of  the  variables  avail- 
able as  independent  parameters.  (See 
description  in  subroutine  INPUT). 

■jf  i 
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1 * GENMA  EXTERNAL  VARIABLES  TABLE  (cont) 


* T 

1 * 

i 

? — 

Variable 

J Use 

Common 

j Description 

C PH (7,  30) 

SU 

JHW 

State  transition  matrix,  $>.  Same  as 

f, 

l 

CPI. 

i ? .. 
% 1 ! 

CPI  (7, 30) 

SU 

JERK 

State  transition  matrix,  <f>. 

x 1 

1 ■ m 

f 

CSV(20) 

s 

ENG 

cos  y.  or  cos  0.  . 

sr 

CSX(20) 

s 

ENG 

cos  or  cos  6^ . 

4 

CSZ(20) 

s 

ENG 

cos  C.  or  cos  0 . . 

i l 

r 

• ’ • 

DEL(20) 

UE 

JERR 

Array  of  angles  6^  between  the  unit 

? 

(VBLOC) 

vector  s and  its  projection  in  the  body 
fixed  I-J  plane  for  the  next  arc  on 

I 

nominal  and  perturbation  trajectories. 

n 

ETJ  (20) 

UE 

JERR 

Array  of  angles  e.  between  the  pro- 

(VBLOC) 

jection  of  s in  the  body-fixed  I-J 

\ - 

plane  and  the  thrust  vector  for  the  next 
arc  on  nominal  and  perturbation  tra- 
jectories. 

' . 

UK 

SU 

INTEG 

Temporary  storage  of  index  limit. 

t 

ITD 

U 

VPLLL 

Flag  indicating  whether  time  of  de- 

parture from  launch  parking  orbit  is 

i 

an  independent  variable. 

0 - not  an  independent  variable 

1 - is  an  independent  variable 

NJJ 

SU 

ILEF 

Number  of  columns  currently  in  the 

i 

state  transition  matrix. 

NJL 

u 

HER 

Number  of  independent  parameters 

i.  - * 

which  are  functions  of  the  initial  posi- 

»  w 

l 

tion  or  velocity. 

M 

NQN 

u 

ILEF 

Number  of  equations  numerically  in- 

1  — 

‘r 

tegrated  on  each  trajectory,  sum  of 

t 

i - 

first  and  second  order  equations. 

GENMA-1 


GENMA  EXTERNAL  VARIABLES  TABLE  (cont) 


Varible 

Use 

Common 

Description 

NSL 

U 

HER 

Number  of  Independent  parameters. 

MSI 

SU 

ILEF 

NS  + 1. 

NTP 

u 

HER 

Current  trajectory  arc  number. 

PYI(7, 7) 

SU 

JHW 

Partial  derivatives  of  the  state  at  the 
end  of  the  arc  with  respect  to  state 
at  the  start  of  the  arc,  dy./dy. 

SNV(20) 

s 

ENG 

sin  p.  or  sin 

SNX(20) 

s 

ENG 

sin  £.  or  sin 

SNZ(20) 

s 

ENG 

sin  £.  or  sin  <t>-v 

XIL(80) 

SU 

AMI 

Second  integral  of  the  Encke  perturba- 
tions, on  nominal  and  perturbation 
trajectories. 

XRL(6,  20) 

SU 

LEFT 

Array  of  spacecraft  position  vectors 
relative  to  the  current  reference  body  on 
nominal  and  perturbation  trajectories. 

• XRO(6) 

U 

LEON 

Spacecraft  position  vector  relative  to  the 
current  reference  body  on  the  two-body 
reference  trajectory. 

XSQ 

u 

STEVE 

Gravitational  constant  of  the  current 
reference  body. 

CSAL(20) 

s 

ENG 

COS  O'.  . 
L 

CSDL(20) 

s 

ENG 

cos  6 . 

CSET(20) 

s 

ENG 

COS  € .. 
1 

IPAT 

SU 

HER 

Flag  indicating  whether  arc  end  time 
is  an  independent  parameter. 

1 - arc  end  time  is  fixed. 

2 - arc  end  time  is  variable. 

¥ 
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GENMA  EXTERNAL  VARIABLES  TABLE  (cont) 


\ T 

Variable 

Use 

Common 

T r- 

Description 

ISOL 

S 

MEL 

Flag  indicating  whether  trajectory  arc 

is  thrust  or  coast. 

1 

-• 

1 - thrust  arc 

[ " * 

2 - coast  arc 

* 

ITD1 

u 

VPLLL 

Flag  indicating  whether  speed  of  de- 

r 

parture  from  a fixed  parking  orbit  is 

- » 

an  independent  parameter. 

0 - departure  speed  is  fixed 

1 - departure  speed  is  variable. 

* 

IVAR(IOO) 

u 

HER 

Array  of  indices  correlating  entries  in 

the  CHN  array  to  corresponding  entries 

J '• 

t 

in  the  independent  parameter  arrays. 

t -- 

NCT1 

u 

HER 

Index  of  the  thrust/coast  flag  of  the 

* 

next  arc  in  the  TBIN  array. 

. 

f* 

:: 

NEQL 

su 

ILEF 

Total  number  of  trajectories  currently 

) 

being  integrated  simultaneously. 

NEQN 

s 

AMI 

NQN  x NEQL 

NOMT 

u 

NOMLL 

Flag  indicating  whether  perturbation 

trajectories  are  currently  being  inte- 

grated. 

0 - nominal  and  perturbation  trajectories 

* 

1 - trial  or  nominal  trajectory  only. 

s 

NOPT(72) 

u 

INTEG 

Array  of  program  option  flags. 

I 

NSLl 

su 

HEP 

Counter  equal  to  NEQL. 

i 

t 

f 

\ 

£ 

NT  PS 

u 

HER 

Total  number  of  trajectory  arcs  minus 
1. 

} 

I' 

s 

RHBR 

u 

ALAN 

• 

P,  used  in  converting  between  time 

r 

f 

T 

and  universal  anomaly  derivatives. 

I 
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GENMA  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

SNAL(20) 

S 

ENG 

sin  a.. 

SNDL(20) 

S 

ENG 

sin6  j. 

SNET(20) 

s 

ENG 

sin  e.. 
1 

TBIN(122) 

u 

JERR 

Array  of  trajectory  are  information. 
(See  description  in  subroutine  INPUT). 

XDDR(7) 

u 

HIS 

State  var'able  perturbation  step  size. 

XIDL(80) 

su 

AMI 

First  integral  of  the  Eneke  perturbation 
on  the  nominal  and  perturbation  tra- 
jectories. 

XRDL(6, 20) 

su 

LEFT 

Array  of  spacecraft  velocity  vectors 
relative  to  the  reference  body  on  the 
nominal  and  perturbation  trajectories. 

XVAR(30) 

u 

HIS 

Perturbation  step  sizes  for  independent 
parameters. 

CSBET(20) 

s 

ENG 

cos  ft . 

DORHO 

u 

ALAN 

Factor  used  in  converting  between  time 
and  universal  anomaly  second  derivatives. 

D2XIL(80) 

u 

AMI 

Encke  perturbations  on  the  nominal  and 
perturbation  trajectories. 

NOP65 

su 

ILEF 

Flag  indicating  whether  the  constrained 
or  unconstrained  steering  mode  is 
invoked. 

1 - unconstrained  mode 

2 - constrained  mode  with  $max  * 0 

3 - constrained  mode  with  (|>  ^ 0. 

Ill uX  | 

SNBET(20) 

s 

ENG 

sin  /Sj . 

/ 
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GENMA  EXTERNAL  VARIABLES  ^ABLE  (cont) 


Variable 

Use 

Common 

Description 

VBLOC(200) 

SUE 

JERR 

Array  containing  the  values  of  all 
spacecraft  and  orientation  variables 
available  as  independent  parameters. 
Includes  values  for  nominal  and  per- 
turbation trajectories  on  next  arc. 

XDIST 

U 

HENRY 

Conversion  factor  equal  to  the  number 
of  ER  in  one  AU. 

IREFNO 

U 

i 

i 

INTEG 

i 

Identification  number  of  the  current 
reference  body.  The  possible  values 
are: 

1 - Earth  6 - Jupiter 

2 - not  available  7 - Saturn 

3 - sun  8 - Uranus 

4 - Venus  9 - Neptune 

5 - Mars  10  - Pluto 

I 

I 

I 
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GENMA-25 


Name: 


IN  IT 


Calling  Arguments  •.  None 

Referenced  Sub-programs:  EPHEM,  SETI 

Referenced  Commons:  ALAN,  HENRY,  HIS,  INTEG,  JERR 

Entry  Points:  None 

Referencing  Sub-programs:  TRAJL 

Discussion:  This  subroutine  Initializes  selected  variables  at  the  start  of  each 
nominal  trajectory.  The  values  of  those  variables  Initialized  to  Integer  or  real 
constants  are  shown  In  parentheses  In  the  descriptions  of  the  external  variables 
below.  Other  Initializations  Include  setting  the  current  reference  body  ID  to 
that  of  the  Input  launch  body,  the  time  of  the  first  print  point  to  the  end  of  the 
first  trajectory  arc  (CHN(15)),  and  an  Index  limit,  NPLAN3,  Is  set  to  3(NPLAN-2). 
Additionally,  the  planetary  mass  array  ME  Is  Initialized  to  units  of  Earth  masses 
If  IREFNO  Is  1 or  2 and  to  units  of  sun  masses,  otherwise.  IfNPLAN,  the 
number  of  planets  Included  In  the  simulation,  Is  greater  than  1,  additional  inltl-''- 
zatton  of  propulsion  system  parameters  Is  accomplished  by  calling  subrou< ' 

SETI  and  the  ephemerls  data  table  Is  constructed  by  calling  EPHEM.  A r» 
to  the  calling  program  Is  then  executed. 


Variable 

Use 

Common 

KM  (12) 

S 

HENRY 

ME(12) 

S 

HENRY 

INIT  EXTERNAL  VARIABLES  TABLE 
se  Common  Description 


Array  of  planetary  gravitational  constants. 

(12*0.  DO) 

Array  of  planetary  masses,  relative  to 
Earth  mass  if  IREFNO  Is  1 or  2 and 
to  the  sun  mass  otherwise. 
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IN  IT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

CIIN 

(100) 

U 

HIS 

Array  of  variables  available  for  use 
as  Independent  variables  In  the 
boundary  value  problem.  Only  the 
arc  end  times  are  used  In  this  routine. 

ETV(3) 

S 

JERK 

Unit  vector  along  nominal  thrust  vector 
In  body  coordinates.  (1.D0,  0.D0,  0.D0) 

MEI(12) 

U 

HENRY 

Array  of  planetary  masses  In  terms  of 
Earth  masses. 

PDT 

S 

HENRY 

Standard  print  interval,  in  hours.  (0.D0) 

TP1 

D 

HENRY 

Time  of  next  print  point,  In  hours. 

INTV(72) 

S 

HENRY 

Array  of  position  vectors  of  celestial 
bodies.  (72*0.  DO) 

PCIN 

s 

HENRY 

Print  interval  change  Indicator,  f . DO) 

CHIND 

s 

HENRY 

Integration  Interval  change  indicator. 
(0.D0) 

ITRIG 

s 

i 

INTEG 

Flag  indicating  whether  an  end-of-arc, 
a reference  switch  or  a trajectory 
rectification  was  required  on  the 
last  compute  interval.  (0) 

NPLAN 

u 

INTEG 

Number  of  planets  included  in  simula- 
tion. 

PRVDT 

s 

HENRY 

Integration  interval  on  previous  step. 
(1033) 

IDUMMY 

s 

INTEG 

Flag  indicating  reason  that  a trajectory 
rectification  Is  required.  (4) 
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INIT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

IREFNB 

U 

INTEG 

Launch  body  identification  number 

1 - Earth  6 - Jupiter 

2 - Not  used  7 - Saturn 

3 - Sun  8 - Uranus 

4 - Venus  9 - Neptune 

5 - Mars  10  - Pluto 

IREFNO 

s 

INTEG 

! 

Current  reference  body  identification 
number.  Same  numbering  system  as 
for  IREFNB  above. 

NPLAN3 

s 

INTEG 

Index  limit  defined  as  3(NPLAN~2). 
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Name: 


INPUT 


Calling  Argument:  None 

Referenced  Sub-programs:  MODIF 

Referenced  Commons:  FNM,  FRAN,  HENRY,  HER,  HIM,  HIS,  ILEF, 

INPR,  INTEG,  JERR,  KAT,  LAMB,  LPPR, 
MINEPS,  MINSEC,  NORM,  NPNT,  ODBALL, 
PERAPS,  RADPRE,  RSCAL,  XMMM 


Entry  Points:  None 

Referencing  Sub-programs:  MAIN 


Discussion:  Subroutine  INPUT  reads  the  namelist  input  data  for  each  case  and 

performs  selected  array  and  variable  initialization.  On  the  first  case  only,  the 

following  input  variables  are  initialized:  MOPT,  DP  and  ALS  are  set  to  zero, 

-28 

YAMBDA  is  set  to  2 , and  ENPLAN  is  set  to  six.  In  addition,  certain  elements 

of  the  input  array  ARRAY  are  snitialized  such  that  the  integration  interval  is  set 
to  0.00390625  (in  units  of  the  universal  anomaly  /l)  in  all  reference  coordinate 
systems.  Prior  to  reading  the  namelist  inputs,  the  variables  MOPTM  and  IPER 
are  initialized  to  zero  on  all  cases. 

The  inputs  are  read  in  under  the  namelist  name  MINPUT.  If  an  end-of- 
flle  is  encountered  while  reading  the  inputs,  the  run  is  immediately  terminated. 
After  completing  the  reading  of  one  case  of  input  data,  all  namelist  input  variables 
are  Immediately  printed  using  the  standard  namelist  print  feature  of  the  FORTRAN 
language.  The  working  value  of  the  iterator  Inhibitor,  XAMBDA,  is  then  equated 
io  the  input  value  YAMBDA. 

The  input  array  BX  is  Inspected  to  determine  the  number  and  identity  of 
the  independent  variables  of  the  case  to  be  run.  For  each  independent  variable  for 
which  the  trigger  is  set  non-zero,  an  independent  variable  counter  is  incremented 
by  one,  and  the  perturbation  step  size,  the  maximum  step  size,  and  the  weight  for 
t,ne  variable,  all  obtained  from  the  input  array  BX,  are  stored  in  the  arrays  XVAR, 


XEPS,  and  WX.  Data  are  stored  sequentially  in  these  arrays  In  the  order  of  the 
second  subscript  of  the  BX  array.  A table  of  indices  of  the  three  arrays  is  also 
constructed  which  correlates  each  entry  to  a specific  word  in  the  CHN  array. 

This  table  is  stored  in  the  array  IV AR.  The  order  of  data  in  CHN  is  uniquely 
related  to  that  of  the  second  subscript  of  BX,  but  is  not  one-to-one.  Specifically, 
for  BX(I,J)  and  CHN(K),  the  relationship  between  J and  K is  as  follows: 

J K 

1 11 

2-6  96-100 

7-16  1-10 

17-74  12-69 

Finally,  a tolerance  representing  a minimum  step  in  the  independent  variable  be- 
low which  convergence  is  assumed  is  stored  in  the  array  EPS.  All  input  variables 
in  the  BX  array  which  are  in  units  of  degrees  are  converted  to  radians  prior  to 
storing  in  the  condensed  arrays.  While  cycling  through  the  input  BX  array,  the 
counter  NVARY  is  accumulated  which  defines  the  number  of  independent  variables 
which  are  functions  of  the  initial  position  and  velocity. 

A similar  Inspection  is  then  performed  on  the  input  BY  array  to  identify 
the  dependent  variables,  or  end  conditions,  of  the  problem  by  cycling  through  BY 
with  respect  to  its  second  subscript  (see  Inputs).  If  the  trigger  associated  with  a 

specific  end  condition  is  zero,  all  other  information  relating  to  that  end  condition 
is  ignored.  If  the  trigger  is  non-zero,  then  the  desired  value  of  the  end  condition 
is  stored  in  the  YCON  array,  the  tolerance  to  which  the  end  condition  must  be 
satisfied  is  stored  in  the  YEPS  array,  the  second  subscript  of  the  BY  array,  de- 
fining the  identity  of  the  end  condition,  is  stored  in  the  IPOFL  array,  and  the  de- 
pendent variable  counter  NDEP  is  incremented  by  one.  The  current  value  of  the 
second  subscript  is  compared  to  the  input  MOPT  and,  if  equal,  the  common  vari- 
able MOPTM  is  equated  to  the  current  value  of  NDEP.  If  the  trigger  BY (1,17), 
associated  with  target  planet  pericenter  distance,  is  non-zero,  special  steps  are 
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taken  because  pericenter  distance  is  a very  sensitive  end  condition  and  a poor 
choice  as  a dependent  variable.  Instead  of  attempting  to  drive  the  solution  to 
the  desired  pericenter  distance,  the  program  automatically  transforms  to  a 
different  set  of  end  conditions  which  produces  the  same  desired  result,  but  which 
is  much  less  sensitive.  The  pericenter  distance  trigger  is  set  to  zero  and,  in  its 
place,  the  triggers  associated  with  the  Cartesian  coordinates  of  the  final  position 
in  target  reference  are  set  to  1.  These  triggers  are  BY (1,18),  BY(1,19),  and 
BY(1,20).  The  desired  values  of  the  Cartesian  coordinates  are  evaluated  Internally 
for  each  trajectory  using  the  specified  pericenter  distance  and  a specified  final 
distance,  input  in  BY(2,11).  A flag  IPER  is  set  to  1 to  indicate  that  the  trans- 
formation has  been  performed. 

The  next  function  performed  by  INPUT  is  to  transfer  trajectory  arc  in- 
formation from  the  doubly  subscripted  input  array  ARCDTA  to  the  singly  sub- 
scripted array  TBIN  after  converting  the  angle  $max  from  degrees  to  radians. 

In  the  first  word  of  TBIN  is  stored  the  end  time  of  the  first  arc.  In  words  2-11 
of  TBIN  is  stored  information  pertaining  to  the  second  arc,  the  third  arc  data  are 
stored  in  words  12-21,  and  so  on.  The  information  from  ARCDTA  for  the  second 
arc  is  stored  as  follows  in  TBIN: 

TBIN (2)  - trigger  defining  whether  arc  is  thrust  or  coast 

TBIN (3)  - s/c  orientation  angle  £ or  0 

TBIN  (4)  - s/c  orientation  angle  v or  0 

TBIN (5)  - s/c  orientation  angle  t or  0 

TBIN (6)  - maximum  permissible  value  of  0 

TBIN (7)  - housekeeping  power,  p^ 

TBIN  (11)  - arc  end  time 

The  index  of  a specific  element  of  TBIN  for  subsequent  arcs  is  obtained  by  add- 
ing 10  for  each  arc  to  the  index  of  the  same  element  for  the  second  arc  as  given 
above.  The  thrust/coast  trigger  of  each  arc  for  which  the  end  time  is  treated  as 
an  independent  variable  of  the  boundary  value  problem  is  set  to  ±2,  where  the 


! 


co 

i 


f 


313 


INPUT 


sign  Is  the  same  as  that  Input  for  the  trigger.  The  end  time  t^  of  the  last  arc 
Is  used  to  define  the  time  Interval  DLEPH  of  the  ephemerls  tables,  as  follows: 

DLEPH  • 96(^24000) 
where  both  t^  and  DLEPH  are  expressed  In  hours. 

The  Input  program  option  flags  are  printed  and  several  variables  are 
initialized  from  Input  paramters , Including  NOP63,  NOP64,  NOP65,  RRE,  NPLAN 
and  NTPS.  "’he  last,  NTPS,  Is  set  to  one  less  than  the  number  of  trajectory  arcs. 
If  NT  PS  Is  greater  than  12,  the  program  Is  immediately  terminated  because 
several  arrays  are  dimensioned  to  accomodate  no  more  than  13  trajectory  arcs. 
Additionally,  the  launch  vehicle  performance  coefficient  AL2  is  converted  from 
units  of  m/sec  to  ER/hr,  and  the  angles  ALPHA,  BTA,  DLTA,  and  EPSLON 
are  converted  from  degrees  to  radians.  The  start  time  of  each  arc  and  the  three 
spacecraft  orientation  angles  associated  with  that  arc  are  transferred  from  the 
TBIN  array  to  the  CHN  array.  For  the  second  arc,  the  data  are  stored  as 
follows : 


CHN  (15)  - 

arc  start  time 

CHN (16)  - 

s/c  orientation  angle 

4 or 

CHN (17)  - 

s/c  orientation  angle 

v or 

CHN  (18)  - 

s/c  orientation  angle 

C or 

The  angles  are  in  degrees  in  the  TBIN  array  and  are  converted  to  radians  prior 
to  storing  in  CHN.  The  four  parameters  for  the  third  arc  are  stored  in  CHN  be- 
ginning in  the  19th  word,  the  fourth  arc  in  the  23rd  word,  and  so  on.  After 
storing  the  data  for  the  last  arc,  the  final  time  is  then  stored  in  the  next  word  of 
CHN. 

The  solar  array  area  a is  evaluated  with  the  formula 

a=k  p + Aa, 

P o 

where  k is  the  specific  array  area  per  unit  reference  power,  pQ  is  the  input 
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reference  power  and  Aa  is  an  input  constant.  The  triggers  IFTRG  and  ITC  are 
set  to  1 and  0,  respectively,  and  subroutine  MODIF  Is  called  to  perform  addi- 
tional Initialization.  If  the  Input  option  flag  NOPT(56)  Is  zero,  a return  from  INPUT 
is  executed.  If  NOPT(56)  Is  non-zero,  the  Input  ephemeris  osculating  elements 
OMI,  SOI,  and  CNI  are  converted  to  radians  prior  to  executing  the  return. 

Note:  NOPT(56)  should  not  be  entered  non-zero  as  the  subroutine  EPHEM  is  not 
presently  capable  of  handling  the  ephemeris  data  for  an  arbitrary  body. 

Messages  and  Printouts:  The  only  print  from  subroutine  INPUT  is  that  of  the  Input 
namelist  MINPUT  in  standard  namelist  format,  and  the  formatted  print  of  the  pro- 
gram option  flag  array  NOPT.  The  format  Is  as  follows: 

OPTIONS  NOPT  (I) 


12  34------------------  - 36 

37  38  39  40  - --  --  --  --  --  --  --  --  --  72 


where  the  value  of  the  NOPT  flag  Is  printed  in  place  of  the  underscore. 


INPUT  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

A 

S 

JERR 

Solar  array  area,  In  m2. 

AO(10) 

R 

JERR 

Solar  array  power  law  coefficients,  a^. 

BL 

R 

JERR 

Efficiency  law  coefficient,  b. 

BX(4,100) 

RU 

INPR 

Array  of  Independent  variable  informa- 
tion. For  each  available  Independent 
parameter,  four  pieces  of  Information 
are  required  by  the  Iterator.  The  first 
subscript,  I,  relates  to  these  four 

INPUT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

BX(4, 100) 
(cont) 

RU 

IN  PR 

Items;  the  second  subscript,  J,  relates 
to  the  Individual  independent  parameters. 
The  four  Items  are: 

l 

Description 

1 

Trigger  defining  whether  variable  Is 
to  be  treated  as  an  Independent  para- 
meter. 

2 

Perturbation  step  size  used  to  com- 
pute partial  derivatives. 

3 

Maximum  change  In  value  of  para- 
meter allowed  in  a single  Iteration, 

4 

Weighting  factor. 

The  index  J uniquely  Identifies  the  In- 
dependent variable  as  follows: 

J 

Variable 

1 

tQ-time  of  departure  from  Earth 
parking  orbit,  in  hours. 

2 

A co -Increment  In  Initial  argument 
of  perigee,  In  degrees. 

• 

3 

AO -increment  In  Initial  longitude 
of  ascending  node,  In  degrees. 

4 

Ai-lncrement  In  launch  parking 
orbit  inclination,  In  degrees. 

1 

5 

A Vp- Increment  In  geocentric  speed 
at  munch,  In  km/sec. 

6 

v^-geocentrlc  speed  at  launch,  In 
degrees. 

7-9 

Cartesian  coordinates  of  spacecraft 
position  at  launch  from  Earth  park- 
ing orbit,  In  ER. 

10-12 

Cartesian  coordinates  of  spacecraft 
velocity  at  launch  from  Earth  park- 
ing orbit,  In  ER/hr. 
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INPUT  EXTERNAL  VARIABLES  TABLE  (cont) 
I Variable  Use  Common  I 


Variable 

Use 

BX(4,100) 

RU 

(cont) 

IN  PR 


BY  (3, 30)  RU 


Description 


14  c-jet  exhaust  speed  of  electric 
propulsion  system,  In  m/sec. 

15  preference  power,  In  watts. 

16-17  a,  ft  -angles  defining  direction  of 
n relative  to  body  fixed  coordinate 
system,  In  degrees. 

18-19  6,  c -angles  defining  direction  of 
s relative  to  body  fixed  coordinate 
system,  in  degrees. 

20  End  time  of  first  arc,  In  hours. 

4(1-2)  Orientation  angle  l or  & for  1th 
+ 21  arc.  In  degrees. 

4(1-2)  Orientation  angle  v or  $ for  1th 
+22  arc,  In  degrees. 

4(1-2)  Orientation  angle  C or  0 for  1th 
+23  arc,  in  degrees. 

4(1-2)  End  time  of  1th  arc,  In  hours. 

+24 

Array  of  dependent  variable  Information. 
For  each  a i liable  dependent  variable, 
corresponding  to  a specific  value  of  the 
second  subscript,  L,  the  Iterator  re- 
quires three  Input  quantities,  one 
associated  with  each  value  of  the  first 
subscript,  K.  The  three  quantities  are: 

K Description 


1 Trigger  indicating  whether  the 
associated  variable  is  to  be  treated 
aB  an  end  condition  of  the  problem. 

2 Desired  value  of  the  end  condition. 

3 Convergence  tolerance. 

The  possible  end  conditions  and  their 
codes  are  as  follows: 


i 


INPUT- 


INPUT  EXTERNAL  VARIABLES  TABLE  (cont 


Variable 


Common 


BY(3, 30) 
(cont) 


Description 

L 

Variable 

1 

Initial  maBB  less  electric  propulsion 
system  propellant  and  retro  pro- 
pellant, In  kg. 

2 

Net  spacecraft  mass,  In  kg. 

3 

Reference  thrust  |t|0,  In  newtons. 

4 

Heliocentric  distance  r,  in  AU. 

5 

Heliocentric  speed,  v,  in  AU/hr. 

6 

Heliocentric  semi-major  axis,  a, 
In  AU. 

7 

Heliocentric  flight  path  angle,  y, 
In  degrees. 

8 

Heliocentric  eccentricity,  e. 

9 

Heliocentric  apoapse  distance,  r&, 
In  AU. 

10 

Heliocentric  perlapse  distance,  rp, 
in  AU. 

11 

Planetocentrlc  distance,  rT,  in  AU. 

12 

Planetocentrlc  speed,  v^,  in  AU/hr. 

13 

Planetocentrlc  semi-major  axis,  aj, 
In  AU. 

14 

Planetocentrlc  flight  path  angle,  >tp, 
in  degrees. 

15 

Planetocentrlc  eccentricity,  eT. 

16 

Planetocentrlc  apoapse  distance,  rT  , 
In  AU. 

17 

Planetocentrlc  perlapse  distance,  rT  , 
in  AU.  When  this  perameter  is  p 

flagged  as  an  end  condition,  its  trigger 
is  automatically  reset  to  zero  as  Is 
that  of  rT  (L  * 11),  and  the  triggers 
of  the  Cartesian  coordinates 
(L  ■ 18  - 20)  are  set  to  one.  The 

1 
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INPUT  EXTERNAL  VARIABLES  TABLE  (cont) 


i Variable 

Use 

Common 

Description 

BY  (3, 30) 
(cont) 

RU 

desired  values  of  rj  and  the  tole- 
rances of  the  Cartesian  coordinates 
must  be  Input.  IPER  Is  set  Inter- 
nally to  re-evaluate  the  desired 
values  of  the  Cartesian  coordinates 
on  each  trajectory. 

18-20  Cartesian  coordinates  of  vehicle 
position  with  respect  to  the  target, 
lu  AU. 

21-30  Not  used.  Available  for  expansion. 

CA 

R 

JERR 

Coefficient  of  absorption,  ca,  of  the 
solar  arrays. 

CE 

RE 

HIS 

(CHN(8)) 

Jet  exhaust  speed,  c,  of  electric  pro- 
pulsion stage,  In  m/sec. 

CR 

R 

JERR 

Jet  exhaust  speed,  c^,  of  the  retro  stage, 
In  m/sec. 

DP 

RU 

Input  Incremental  solar  array  area,  Aa, 
In  m2. 

ER(3) 

R 

JERR 

Cartesian  components  of  the  constrained 
I vector. 

IN 

U 

j 

INTEG 

Logical  unit  on  which  Input  data  Is  read. 

| 

IO 

u 

INTEG 

Logical  unit  on  which  principal  program 
output  Is  written. 

P0 

RUE 

HIS 

(CHN(9)) 

Solar  array  reference  power,  pQ,  In 
watts. 

RM 

S 

PERAPS 

Desired  final  distance  from  target 
planet,  In  AU. 

RP 

8 

PERAPS 

Desired  perlapse  distance  of  target 
approach  trajectory.  In  AU. 

WX(30) 

S 

HIS 

Independent  variable  weight  array,  W^. 
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INPUT  EXTERN*  L VARIABLES  TABLE  (cont) 
f Variable  I Use  I Common  I 


Variable 

Use 

CHN  (100) 

SUE 

(cont) 

Description 


The  nr,.:ct  several  words  are  grouped  in 
sets  of  four,  with  each  set  pertaining  to 
a trajectory  arc.  Let  l denote  the  tra- 
jectory arc  number,  with  2 s 1 £ 13, 
then  the  data  stored  in  the  next  several 
locations  of  CHN  are  as  follows: 

4<l— 2)  ~ s/c  orientation  angle  ^ or  & 

+ 16 

4(1-2)  - s/c  orientation  angle  u or  $ 

+ 17 

4(1-2)-  s/c  orientation  angle  £ or  0 
+ 18 

4(1-2)-  Si-c  end  time 
+19 


ODBALL 


JERR 


The  last  five  words  in  CHN  are  as  follows: 

96  - Increment  in  Initial  argument  of 

perlapse,  A to, 

97  - increment  in  initial  longitude  of 

ascending  node,  AO. 

98  - Increment  in  equatorial  inclina- 

tion, Al. 

»9  - increment  in  speed  at  perlapse, 

Av  . 
po 

100  - speed  at  departure  from  Earth 

parking  orbit,  v . 

po 

Ecliptic  inclination  of  input  celestial 
body,  in  degrees.  (Not  presently  avail- 
able). 

2 

Efficiency  law  coefficient,  d , in 
m2/eec2. 


ODBALL  Orbital  eccentricity  of  Input  celestial 
body.  (Not  presently  available). 
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INPUT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

I 

AU 

R 

JERR 

Launch  vehicle  performance  coefficient, 

V 

in  kg. 

3 

AL2 

RSU 

JERR 

Launch  vehicle  performance  coefficient, 

V 

in  m/sec. 

I 

AL3 

R 

JERR 

Launch  vehicle  performance  coefficient, 

a3' 

in  kg. 

, i 

\ *• 

APS 

R 

JERR 

Specific  propulsion  system  mass,  a , 

in  kg/watt.  ps 

; ;i 

■ *m 

BTA 

RSUE 

HIS 

Angle  /3  between  the  projection  of  n 

(CHN(12)) 

in  the  I - J body  fixed  plane  and  the  I- 

1 1 

axis 

, positive  in  the  direction  of  J,  in 

I * 

deg. 

1 f 

CHN(100) 

SUE 

HIS 

Array  containing  the  values,  in  internal 

units,  of  all  variables  available  as  in- 

1 

dependent  variables.  The  variables 

f :f 

associated  with  each  index  value  are : 

1 » ■ 

1-3 

- initial  spacecraft  position  vector 

1 *1 

4-6 

- initial  spacecraft  velocity  vector 

£ * • 

7 

- initial  spacecraft  mass 

| *; 

8 

- jet  exhaust  speed  of  electric  pro- 

pulsion  system 

1 *" 
£ ' 

9 

- reference  power 

| ^ 

j 

10 

- angle  a defining  orientation  of 
n 

11 

- initial  time 

t 

12 

- angle  /3 defining  orientation  of  n 

■ & 

13 

- angle  6 defining  orientation  of  s 

: T 

14 

- angle  c defining  orientation  of  s 

1 

15 

- time  at  end  of  first  trajectory 

T 

arc 

I 
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INPUT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

EMU 

S 

PERAPS 

Gravitational  constant  of  target  planet, 
in  AU3/hr2,  except  when  the  target  is 
Earth  the  units  are  in  ER3/hr2. 

EPS  (30) 

S 

MINEPS 

Array  of  minimum  independent  variable 
step  sizes  below  which  convergence  is 
assumed. 

ITC 

S 

LPPR 

Flag  used  to  indicate  whether  headings 
for  trajectory  summary  print  have  been 
initialized. 

ITF 

R 

MINSEC 

Time,  in  seconds,  to  be  reserved  for 
calculating  the  final  trajectory. 

NPR 

R 

NPNT 

Flag  used  to  indicate  whether  partial 
deri\ative  matrix  is  to  be  printed. 

OMI 

R 

ODBALL 

Longitude  of  ascending  node  of  input 
celestial  body,  in  degrees.  (Not 
presently  available). 

POS(3) 

RE 

HIS 

(CHN(1)) 

Cartesian  coordinates  of  the  initial 
spacecraft  position  in  geocentric  ecliptic 
coordinates,  in  ER. 

RRE 

S 

HENRY 

Radial  distance  from  Earth  at  which  the 
reference  coordinate  system  is  switched 
between  Earth  and  sun , in  ER . 

RTA 

R 

FNM 

Apocenter  distance  of  capture  orbit 
about  target  planet,  in  planetary  radii. 

RTP 

R 

FNM 

Pericenter  distance  of  capture  orbit 
about  target  planet,  in  planetary  radii. 

SAI 

R 

ODBALL 

Semi-major  axis  of  input  celestial  body 
orbit,  in  AU.  (Not  presently  available). 

SOI 

RSU 

ODBALL 

Argument  of  periapse  of  input  celestial 
body,  in  degrees.  (Not  presently 
available. 
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INPUT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

TPI 

R 

ODBALL 

Julian  date  of  perihelion  passage  (with 
leading  244  omitted)  of  input  celestial 
body.  (Not  presently  available). 

VEL(3) 

RE 

• HIS 
(CHN(4)) 

Cartesian  coordinates  of  the  initial 
spacecraft  velocity  in  geocentric 
ecliptic  coordinates,  in  ER/'hr. 

XKP 

RU 

JERR 

Specific  area  of  solar  arrays,  k , in 
m2/watt. 

XKR 

R 

JERR 

Tankage  factor  of  the  retro  stage,  k^. 

XKS 

R 

JERR 

Solar  pressure,  kg,  acting  on  a flat 
plate  at  a distance  of  1 AU  from  the 
sun  assuming  all  photons  are  absorbed, 
in  newtons/m2. 

XKT 

R 

JERR 

Tankage  factor  of  the  electric  propulsion 
system,  kt. 

DELP 

R 

JERR 

Reference  power  of  an  individual  thruster, 
in  watts. 

DLTA 

RUE 

HIS 

(CHN(13)) 

Angle  between  s and  its  projection  in 
the  I-J  body  fixed  plane,  in  degi’ees. 

IPER 

S 

PERAPS 

Flag  which,  when  non-zero,  indicates 
that  an  internal  transformation  was 
performed  to  change  from  an  end  condi- 
tion specifying  periapse  distance  to  a 
set  of  3 end  conditions  specifying  final 
position. 

IVAR(100) 

SU 

HER 

Array  of  Indexes  which  relates  entries 
in  the  independent  variable  arrays 
XVAR,  XEPS,  EPS,  and  WX  to  entries 
in  the  array  CHN. 

KSQQ(12) 

U 

HENRY 

Array  of  planetary  gravitational  con- 
stants, in  AU3/hr2  except  foi.  Earth 
and  moon  (KSQQ(1)  and  KSQQ(2))  which 
are  in  units  of  ER3/hr2. 

I 
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INPUT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

| Use 

Common 

Description 

MOPT 

RIJ 

Index  defining  which  of  the  available  end 
conditions  is  to  be  the  performance  index 
of  the  direct  optimization  procedure.  The 
correlation  with  specific  end  conditions 
is  the  same  as  the  second  subscript  of  ie 
BY  array. 

NDEP 

SU 

HER 

Number  of  dependent  variables  for  th- 
current  case. 

NIND 

SU 

HER 

Number  of  independent  variables  for  the 
current  case. 

NOPT(72) 

RU 

i 

INTEG 

j 

Array  of  program  option  flags.  The 
flags  2-13  and  40-46  control  the  printing 
of  spacecraft  position,  in  km,  or  velocity, 
in  km/sec,  relative  to  various  reference 
frames,  except  as  noted: 

2 ~ position  relative  to  current 

reference  body. 

3 - velocity  relative  to  current 

reference  body. 

4 - position  relative  to  Earth 

5 - position  relative  to  moon  (not 

available). 

6 - moon  position  relative  to  Earth, 

in  km  (not  available). 

7 - position  relative  to  sun. 

8 - position  relative  to  Venus. 

9 - position  relative  to  Mars. 

10  - position  relative  to  Jupiter. 

11  - position  deviation  from  reference 

two-body,  in  km. 

12  - velocity  deviation  from  reference 

two-body,  in  km/sec. 

13  - non-two  body  accelerations  on 

s/c,  inkm/sec2. 
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INPUT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

NOPT(72) 

(cont) 

RU 

INTEG 

t 

! 

40&41  -position  relative  to  Saturn. 

40  & 42 -position  relative  to  Uranus. 

40  &43  -position  relative  to  Neptune. 

40  & 44 -position  relative  to  Pluto. 

40645  -position  relative  to  E-M  bary- 

center  (not  available). 

40646  -position  relative  to  Mercury 

(not  available). 

Other  flags  used  in  the  program  are: 

Index  Purpose 

16  Rectification  print 

33  Changes  units  of  semi-major 

axis  in  printout  of  osculating 
elements. 

56  Signifies  orbital  elements  of 
target  are  input.  (Not  presently 
available). 

57  Indicates  a retro  maneuver  is 
required. 

58  Iterator  commences  in  optimize 
mode. 

60  The  printout  flagged  by  the  NOPT 

flags  described  above  is  provided 
for  all  trajectories  rather  than 
just  the  final. 

63  ID  number  of  planet  toward  which 
5 is  directed. 

64  Indicates  type  of  constraint  placed 
on  s 

65  Defines  constrained  or  unconstrained 
mode. 
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INPUT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

NOPT(72) 

(cont) 

RU 

INTEG 

66 

Indicates  solar  or  nuclear  electric 
propulsion  system. 

68 

Forces  arrays  to  be  oriented  nor- 
mal to  sun;  ignores  fixed  s/c- 
array  orientation  constraint. 

NPWR 

RU 

HER 

Number  of  terms  in  the  series  expression 
for  the  power  curve. 

NTPS 

SU 

HER 

Index  equal  to  the  number  of  trajectory 
arcs  minus  1. 

RBRE 

RU 

LAMB 

Radial  distance  from  Earth  at  which  the 
reference  coordinate  system  is  switched 
between  Earth  and  sun,  in  ER. 

REKM 

R 

HENRY 

Conversion  factor,  equal  to  the  number 
of  kilometers  on  one  ER. 

TBIN(122) 

SU 

! 

JERR 

j 1 

Array  of  trajectory  arc  information.  The 
first  location  contains  the  end  time  of  the 
first  arc,  in  hours.  Thereafter,  ten 
sequential  array  locations  are  reserved 
for  each  trajectory  arc.  Data  are  stored 
in  the  same  sequence  for  all  trajectory 
arcs  after  the  first  arc.  The  order  is 
as  shown  below  for  the  second  arc. 

Index 

Variable 

2 

Thrust/coast  flag. 

3 

Orientation  angle  £ or  0,  in 
degrees. 

4 

Orientation  angle  v or  ip , in 
degrees. 

5 

Orientation  angle  C or  <t> , in 
degrees. 

6 

7 

\ b , in  radians, 

max 

Housekeeping  power,  px,  in  watts. 
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INPUT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

TBIN(122) 

SU 

JERR 

8-10  Not  used. 

(cont) 

11  Arc  end  time,  in  hours. 

Data  for  the  third  arc  are  stored  in 
locations  12-21,  and  so  on.  After 
the  arc  end  time  of  the  last  arc,  the 
number  1.  is  stored  in  the  next 
location. 

THTS 

R 

HENRY 

Eccentric  anomaly  change  criteria  for 
rectifying  the  reference  two-body  tra- 
jectory, in  radians. 

TSCL 

R 

HENRY 

Time  conversion  factor  for  input/output. 
Defaulted  to  3600. 

XDAR(7) 

R 

HIS 

Perturbation  step  sizes  for  position, 
velocity  and  mass  to  be  used  at  start  of 
each  trajectory  arc  for  generating  state 
transition  matrix.  Units  are  AU,  AU/hr 
and  kg. 

XEPS(30) 

S 

HIS 

Array  of  maximum  changes  permitted 
in  independent  parameters.  Angles  are 
in  radians;  all  other  units  are  the  same 
as  those  of  the  BX  array. 

XJLD 

R 

LAMB 

Julian  date  of  launch  with  leading  244 
omitted. 

XKST 

R 

JERR 

Structure  factor  of  the  spacecraft,  kgt . 

X VAR  (30) 

S 

HIS 

Array  of  perturbation  step  sizes,  of  the 
Independent  variables,  used  to  compute 
partial  derivatives.  Angles  are  in  radians; 
all  o*her  units  are  the  same  as  those  of 
the  BX  array. 

YCON(30) 

S 

i 

1 

HIM 

Array  of  desired  values  of  dependent 
variables.  Units  are  the  same  as  those 
of  the  BY  array. 
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INPUT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

YEPS(30) 

S 

HIS 

Array  of  allowable  tolerances  to  which 
end  conditions  must  be  satisfied.  Units 
are  the  same  as  those  of  the  BY  array. 

ALPHA 

RSUE 

HIS 

(CHN(IO)) 

Angle  a between  n and  Its  projection 
in  the  body  fixed  I-J  plane,  in  degrees. 
Positive  in  the  sense  of  K. 

DLEPH 

S 

NORM 

Time  interval,  in  hours,  between 
successive  entries  in  the  ephemeris 
tables. 

EMUDD 

R 

ODBALL 

Gravitational  constant  of  the  input 
celestial  body,  in  AU3/hr2.  (Not 
presently  available.) 

IFTRG 

S 

HER 

First  trajectory  flag.  A value  of  1 
indicates  the  current  trajectory  is  the 
first  trajectory  of  a case. 

IPOFL(30) 

s 

HER 

Array  of  indices  correlating  elements 
of  the  dependent  variable  arrays  YCON 
and  YEPS  to  associated  elements  of  the 
BY  array. 

• IT  MAX 

R 

HER 

Maximum  number  of  iterations  permitted 
in  MINMX3  in  either  the  select  or 
optimize  mode. 

MOPTM 

S 

YMMM 

Index  of  the  YCON  array  defining  the 
performance  index. 

NARCS 

RU 

Total  number  of  trajectory  arcs. 

NOPT63 

S 

ILEF 

NOPT(63). 

NOPT64 

S 

ILEF 

NOPT(64). 

NOPT65 

S 

ILEF 

NOPT(65). 

NPLAN 

s 

INTEG 

Integer  equal  to  the  input  variable 
ENPLAN. 
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INPUT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use  i Common 

Description 

NVARY 

SU 

HER 

Number  of  independent  variables  that  are 
functions  of  the  initial  position  or  velocity. 

1 1 MEL 

R 

HENRY 

t 

Maximum  time,  in  hours  from  launch,  for 
which  ephemeris  data  is  stored  in  the 
tables. 

WTOPT 

R 

XMMM 

Weighting  parameter  associated  with  the 
performance  index.  Used  only  when  the 
iterator  is  in  the  optimize  mode.  In- 
creasing the  magnitude  of  WTOPT  results 
in  the  iterator  placing  more  importance 
on  improving  the  performance  index  and 
less  on  meeting  the  specified  end  condi- 
tions. 

XMDKM 

R 

FRAN 

Conversion  factor  for  distance.  Defaulted 
to  the  number  of  kilometers  in  one  AU. 

ARCDTA 

(7,20) 

RU 

IN  PR 

Array  of  data  pertaining  to  the  various 
trajectory  arcs.  The  second  subscript 
corresponds  to  the  arc  number.  The  data 
associated  with  the  7 values  of  the  first 
subscript  are  as  follows: 

1 - arc  end  time,  in  hours. 

2 - thrust/coast  flag 

3 - orientation  angle  £ or  ®»  in 

degrees. 

4 - orientation  angle  v or  0 , in 

degrees. 

5 - orientation  angle  C or  0 , in 

degrees. 

6 - 0 , in  degrees. 

max 

7 - housekeeping  power,  p^,  in  watts. 

ENPLAN 

RU 

Defines  which  planets  are  Included  in  the 
trajectory  simulation.  All  bodies  whose 
ID  number  (see  IREFNB  below)  is  less 
than  or  equal  to  ENPLAN  are  included  in 
the  simulation. 

I 


INPUT-19 


INPUT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

EPSLON 

RSUE 

HIS  / 
(CHN(14)) 

Angle  €,  in  degrees,  between  the  pro- 
jection of  5 in  the  body  fixed  I-J  plane 
and  the  I-axis,  positive  in  the  sense  of 
J. 

IREFNB 

R 

INTEG 

Identification  number  of  the  launch 
planet. 

1 - Earth  5 - Mars  9 - NepUmo 

2 - not  available  6 - Jupiter  10  - Pluto  j 

3 - Sun  7 - Saturn 

4 - Venus  8 - Uranus 

IREFNT 

R 

INTEG 

Identification  number  of  the  target  planet. 
Same  options  as  for  IREFNB. 

POSRCS 

R 

HENRY 

Rectification  criterion  for  position 
deviation  from  the  reference  two-body 
trajectory. 

VELRCS 

R 

HENRY 

Rectification  criterion  for  velocity 
deviation  from  the  reference  two-body 
trajectory. 

XAMBDA 

S 

KAT 

Iterator  inhibitor,  \ . 

YAMBDA 

RU 

Starting  value  of  iterator  inhibitor.  If 
not  Input,  a value  of  2“ ^ is  used. 
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INPUT -29 


Name: 


INT 


Calling  Arguments: 
Referenced  Sub-programs: 
Referenced  Commons: 
Entry  Points: 

Referencing  Sub-programs: 


NN,  X,  JZ,  ANS,  DTL,  IR1 
None 

NORM,  NORML 
None 

CONTRL,  DERIV,  FINDXB,  FNMAT 


Discussion:  This  subroutine  Is  a multi-function,  variable  order  Lagrange  inter- 
polation routine.  It  assumes  the  functions  to  be  interpolated  are  stored  in  the 
array  TBBL  at  a constant  interval  DTL  in  the  independent  variable.  It  assumes 
that  a total  of  250  tabular  points  are  stored  for  each  function.  The  number  of 
functions  to  be  interpolated  is  NN.  The  tabulations  of  these  NN  functions  are 
stored  in  contiguous  250  word  segments  of  TBBL,  the  first  segment  starting  in 
location  JZ  + 1.  The  number  of  points  employed  in  the  interpolation  is  given  by 
IR1,  which  is  one  greater  than  the  order  of  the  interpolation.  The  current  value 
of  the  independent  variable  is  X,  and  the  interpolated  values  are  output  in  the  array 
ANS.  Provisions  are  made  to  avoid  interpolation  if  the  current  value  of  the  inde- 
pendent variable  is  at  a tabular  point,  in  which  case  the  tabular  values  of  the 
functions  are  used. 

In  ASTOP,  the  order  of  interpolation  used  is  always  five;  i.e. , ER1  is 
always  6.  Providing  the  current  value  of  the  independent  variable  is  not  near 
either  end  of  the  250  point  tabular  entries,  the  six  points  used  for  interpolation 
are  selected  such  that  three  points  lie  on  each  side  of  the  current  value.  If  three 
points  on  either  side  are  not  available  because  the  current  time  lies  near  one  end, 
then  the  first  six  points  or  last  six  points  of  the  table,  whichever  is  appropriate, 
are  used.  If  the  current  value  of  the  independent  variable  lies  outside  the  range 
of  the  tables,  a return  to  the  calling  program  is  executed.  Denoting  the  tabular 
values  of  the  function  to  be  interpolated  as  y^,  l = 1-6;  the  corresponding  values 
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of  the  independent  variable  as  x^,  and  the  current  value  of  the  independent 
variable  as  x,  then  the  interpolated  value  of  the  function,  y,  is  evaluated 

yi  + , 5y5  _ y6 

(X-Xx)  “ (X-X2)  (X-X3)  ‘ (X-X4)  (X-Xg)  " (X-Xg) 

y = 1 5 ‘ 10  _ 10  ~ 5 1 

(x-x^  ~ (x-x2)  (x-x3)  " (x-x4)  (X-Xg)  “ (X-Xg) 


INT  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

x 

ux 

Current  value  of  independent  variable. 

JZ 

UX 

Starting  location  minus  1 of  the  tabular 
values  in  TBBL  of  the  first  function  to 
be  interpolated. 

NN 

ux 

Number  of  functions  to  be  interpolated. 

ANS(NN) 

sx 

Array  of  interpolated  values. 

DTL 

ux 

Interval  between  tabulated  points. 

IR1 

. ux 

Number  of  points  used  in  interpolation, 
3 siri  S7. 

TBBL 

(12000) 

u 

NORML 

Table  of  dependent  variable  values. 

TREF 

u 

NORM 

Value  of  independent  variable  associated 
with  the  first  entries  in  TBBL  for  all 
dependent  variables. 
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Name: 


IT  MAT 


Calling  Argument:  None 

Referenced  Sub-programs:  MINMX3,  FNPRNT 

Referenced  Commons:  HER,  HIM,  HIS,  INTEG,  XMMM 

Entry  Points;  None 

Referencing  Sub-programs;  MAIN 

Discussion:  This  subroutine  performs  the  final  Initialization  required  before 
entering  the  Ite.  ator,  and  then  activates  the  Iterator  MINMX3  and  the  printing 
of  the  final  trajectory.  The  arrays  Initialized  are  MSET,  B,  QMIN  and  QMAX. 
The  iterator  is  then  called.  Upon  return  from  MINMX3,  an  error  flag  Is  checked 
and  if  an  error  condition  was  detected,  a message  Is  printed  and  the  case  Is  ter- 
minated. If  there  were  no  error  conditions,  a convergence  Indicator  Is  checked. 
If  convergence  Is  indicated,  a message  is  printed.  In  either  case,  a call  to 
FNPRNT  is  then  executed  to  print  the  final  trajectory.  A return  to  MAIN  is  then 
executed. 

Messages  and  Printout:  If  convergence  is  indicated  Upon  return  from  MINMX3, 
the  following  message  is  printed: 

CASE  CONVERGED 

prior  to  printing  the  final  trajectory.  If  an  error  condition  was  detected  in 
MINMX3,  the  message 

ERROR  CONDITION  RETURNED  FROM  MINMX3.  RUN  TERMINATED  IN 
SUBROUTINE  ITMAT 


is  printed. 


ITMAT  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

B(30) 

S 

XMMM 

Array  of  independent  variable  values, 
obtained  from  the  CIIN  array. 

10 

U 

INTEG 

Logical  unit  used  for  printout. 

CHN(100) 

U 

HIS 

Array  of  variables  available  as  inde- 
pendent parameters  of  the  boundary 
value  problem.  Detailed  description 
provided  in  subroutine  INPUT. 

IPS 

U 

HER 

Number  of  dependent  variables. 

NSL 

u 

HER 

Number  of  Independent  variables. 

IVAR(100) 

u 

HER 

Array  of  indexes  relating  the  Independent 
variables  in  B to  the  corresponding 
elements  of  CHN. 

MSET(5) 

SA 

Array  of  counters  and  triggers  used  by 
MINMX3.  The  five  elements  are: 

1 - number  of  independent  variables,  NSL 

2 - number  of  dependent  variables,  IPS 

3 - maximum  number  of  iterations  per- 

mitted in  the  select  mode,  IT  MAX 

4 - flag  indicating  whether  Iterator 

commences  in  select  or  optimize 
mode,  NOPT(58) 

5 - maximum  number  of  iterations  per- 

mitted in  the  optimize  mode,  ITMAX 

NOPT(72) 

U 

INTEG 

Array  of  program  option  flags. 

QMAX(30) 

s 

XMMM 

Array  of  upper  allowable  limits  of 
dependent  variables  on  converged 
trajectory. 

QMIN(30) 

s 

XMMM 

Array  of  lower  allowable  limits  of 
dependent  variables  on  converged 
trajectory. 
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IT  MAT  EXTERNA!  VAR  IADLES  TABLE  (cont) 


Variable 

1 

Use 

Common 

i 

Description 

YCON(30) 

U 

HIM 

Array  of  desired  values  of  dependent 
variables. 

YEPS(30) 

U 

HIS 

Array  of  allowable  end  condition 
tolerances. 

IT  MAX 

U 

HER 

Maximum  number  of  iterations 
permitted. 

XCONVG 

UA 

Trajectory  convergence  Indicator. 

XERROR 

UA 

MINMX3  error  condition  Indicator. 

UAT-3 


ITMAT-5 


Name: 


LAMBRT 


Calling  Argument: 


None 


Referenced  Sub-programs:  PDATE 


Referenced  Commons: 


ALAN,  HENRY,  HIS,  INTEG,  JERR,  LAMB,  RSCAL, 
VPLLL 


Entry  Points: 


None 


Referencing  Sub-programs:  MOD  IF 


Discussion:  LAMBRT  performs  additional  case  initialization  as  an  extension  of 

subroutine  MODIF.  Subroutine  PDATE  is  called  to  determine  the  calendar  date 

of  launch  from  the  input  Julian  date  and  the  current  time,  t,  is  set  to  zero.  The 

speed  v at  departure  from  the  Earth's  parking  orbit  is  calculated  from  the  in- 
po 

put  velocity  and  stored  in  the  CHN  and  CHNS  arrays  (location  100  in  each).  The 
radial  distance  at  departure  from  the  launch  parking  orbit  is  computed  from  the 
input  position  vector.  A unit  vector  along  the  initial  geocentric  velocity  is  com- 
puted and  stored  in  the  array  RDPML.  The  launch  vehicle  payload  m^  is  com- 
puted using  the  formula 

-vpo/a2 

m^=aie  -a3 

where  a.,  a , and  a are  the  input  launch  vehicle  coefficients.  This  mass  is 

12  o 

equated  to  the  initial  spacecraft  mass  and  stored  in  CHN(7).  The  Initial  geocentric 
position  vector  is  stored  in  the  array  RPHAT  and  CHN(ll),  the  initial  time  in  hours 
from  the  input  Julian  date,  is  set  to  zero. 
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LAMBRT  FXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

A LI 

U 

JERR 

Launch  vehicle  coefficient,  a^,  In  kg. 

AL2 

u 

JERR 

Launch  vehicle  coefficient,  a , in  ER/hr. 

AL3 

u 

JERR 

Launch  vehicle  coefficient,  a , in  kg. 

CHN(100) 

su 

HIS 

Array  of  available  Independent  variables. 

DAY 

A 

INTEG 

Day  of  the  month  of  launch. 

RLP 

s 

RSCAL 

Radial  distance  from  Earth  at  launch, 
in  ER. 

CHNS(100) 

s 

HIS 

Same  as  CHN,  with  units  changed  for 
printout  purposes. 

HOUR 

A 

Hour  of  the  day  of  launch. 

TBET 

s 

ALAN 

Current  time  in  hours  from  launch. 

VPOO 

su 

VPLLL 

Geocentric  speed  at  departure  of 
parking  orbit,  in  ER/hr. 

XJLD 

u 

LAMB 

Julian  date  of  launch  with  leading  244 
omitted. 

XJLM 

SA 

i 

Julian  date  of  launch  with  leading  24 
omitted. 

YEAR 

A 

INTEG 

Calendar  year  of  launch. 

MONTH 

A 

i 

INTEG 

Calendar  month  of  launch. 

RDPML(3) 

S 

RSCAL 

Unit  vector  along  Initial  geocentric 
velocity. 

R PH  AT  (3) 


S 


RSCAL 


Initial  geocentric  position  vector,  in 
ER. 


Chart  nut  - hoh  - pn  oc  i ou  * At  staiihehts 


Name: 


MAIN 


Calling  Arguments: 
Referenced  Sub-programs : 
Referenced  Commons: 
Entry  Points; 

Referencing  Sub-programs : 


Not  applicable 
INPUT,  ITMAT 
None 

Not  applicable 
Not  applicable 


Discussion:  The  only  purposes  of  tbe  MAIN  program  are  to  call  subroutines 
INPUT  and  ITMAT,  in  that  order.  Upon  returning  from  ITMAT,  execution  is 
terminated. 


MAIN 


Name: 


MIIP1 


Calling  Ai-guments: 
Referenced  Sub-programs: 
Referenced  Commons: 
Entry  Points: 

Referencing  Sub-programs: 


None 

ELCO 

ALAN,  AMI,  FRAN,  HENRY,  ILEF,  INTEG,  LEFT 
None 

GENMA,  TRAJL 


Discussion:  Subroutine  MIIP1  points  spacecraft  position,  velocity,  and/or  accelera- 
tion vectors  relative  to  selected  planets  and  calls  ELCO  to  print  osculating  orbital 
elements.  This  print  is  executed  at  the  current  time  point.  If  MIIP1  is  called  while 
Integrating  the  nominal  and  perturbation  trajectories  simultaneously,  the  print  is 
executed  at  the  current  time  point  for  each  of  the  trajectories. 

Upon  entry  to  the  routine  the  current  time  is  evaluated  in  terms  of  days, 
hours,  minutes  and  seconds  from  departure  of  the  launch  parking  orbit.  This  time 
is  printed  and  a conversion  factor  is  defined  to  convert  distances  from  the  current 
Internal  units,  ER  or  AU,  to  kilometers.  The  NOPT  flags,  2-13  and  40-46,  are 
then  checked  for  the  desired  printout  vectors.  (See  discussion  of  NOPT  array  in 
subroutine  INPUT).  If  the  NOPT  flag  is  non-zero,  the  corresponding  position, 
velocity  or  acceleration  vector  is  printed  in  the  form  of  its  Cartesian  components 
and  its  magnitude.  After  checking  all  appropriate  NOPT  flags,  subroutine  ELCO 
is  called  to  print  the  osculating  orbital  elements  at  the  current  time. 

Messages  and  Printout:  The  current  time  is  printed 

TIME  IN  DAYS,  HRS. , MINS. , SECS.  (18)  (18)  (18)  (F10.3) 

where  the  numbers  in  parentheses  denote  the  Fortran  format  code  of  the  field 
represented  by  the  underline.  The  following  optional  lines  of  printout*  are  ob- 
tained, depending  on  the  NOPT  flags: 

*For  the  definition  of  the  vector  printed,  see  the  definition  of  the  associated 
NOPT  flag  in  subroutine  INPUT. 

bbcbwb  nwwnrwff  ram 
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y. 

i 

1 

If  N0PT(2)  ^ 0, 

XR  = 

YR-. 

ZR= 

RR= 

If  NOPT (3)  ^ 0, 

L 

1 

XRDT=  

YRDT= 

ZRDT= 

RRDT= 

i 

If  NOPT (4)  y*  0, 

, 

XVE=  

YVE=_ 

ZVE= 

RVE= 

X i 

If  NOPT  (5)  y*  0, 

‘ 

XVM- 

YVM=_ 

Z VM= 

RVM= 

If  NOPT (7)  t 0, 

XVS= 

YVS=  _ 

ZVS= 

RVS= 

If  NOPT  (8)  t 0, 

l 

| 

XWN= 

YVVN=_ 

Z WN= 

RVVN* 

1 

If  NOPT  (9)  £ 0, 

t ( 
i ; 

XVMR= 

YVMR=_ 

ZVMR* 

RVMR* 

If  NOPT (10)  ^ 0, 

XVJP* 

YVJP= 

ZVJP= 

___  RVJP-- 

If  NOPT (11)  t 0, 

XI = 

ETA= 

ZETA* 

PERT= 

If  NOPT (12)  4 0, 

i 

XIDT= 

ETADT= 

ZETADT- 

VPERT= 

l 

If  NOPT (13)  + 0, 

j 

D2XI* 

D2ETA= 

D2ZETA* 

APERT* 

5 
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If  NOPT(40)  and  N0PT(41)  t 0, 
XVP1=  YVP1= 

ZVP1= 

RVP1= 

If  NOPT(40)  and  NOPT(42)  4 0, 

• 

XVP2=  YVP2= 

ZVP2= 

RVP2= 

If  NOPT(40)  and  NOPT(43)  ^ 0, 
XVP3=  YVP3= 

ZVP3= 

RVP3= 

If  NOPT(40)  and  NOPT(44)  t 0, 
XVP4=  YVP4= 

ZVP4=  

RVP4= 

If  NOPT(40)  and  NOPT(45)  t 0, 
XVP5=  YVP5= 

ZVP5-  

RVP5= 

If  NOPT(40)  and  NOPT(46)  t 0, 
XVP6=  YVPG= 

ZVP6=  

RVP6= 

MIIP1  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

10 

U 

INTEG 

Logical  unit  on  which  standard  printout 
is  written. 

NQN 

U 

ILEF 

Number  of  state  equations  Integrated  on 
each  trajectory,  including  second  order 
and  first  order. 

XIL(80) 

u 

AMI 

Second  Integrals  of  Encke  terms  of 
nominal  and  perturbation  trajectories. 
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MIIP1  EXTERNAL  VARIABLES  TAIjLE  (cont ) 


i 

Variable 

Use 

Common 

j Description 

1 

\ 

I 

1 

* ^ 

XRL(G,20) 

UA 

* 

LEFT 

Position  vectors  of  spacecraft  from 
reference  body  on  nominal  and  pertur- 
bation trajectories.  The  dimension  of 
six  provides  for  the  magnitude,  square 
and  cube  of  the  distance  as  well  as  the 
three  Cai’tcsian  components. 

KSQQ(12) 

UA 

HENRY 

Array  of  planetary  gravitational 
constants. 

NEQL 

U 

ILEF 

Number  of  trajectories  being  integrated 
simultaneously,  nominal  plus  perturbed, 

NOPT(72) 

u 

INTEG 

Array  of  program  option  flags. 

REKM 

u 

HENRY 

Conversion  factor  for  distance,  ecmal 
to  the  number  of  kilometers  in  one  ER. 

TBET 

u 

ALAN 

Current  time  in  hours  from  departure 
of  the  launch  parking  orbit. 

TSCL 

u 

HENRY 

Conversion  factor  for  time,  defaulted 
to  3G00. 

r 

•i 

VCOL(72, 20) 

u 

LEFT 

Array  of  spacecraft  position  vectors 
relative  to  all  perturbing  bodies  on 
nominal  and  perturbed  trajectories. 
Includes  Cartesian  coordinates  plus 
magnitude,  square  and  cube  of  distance. 

XIDL(80) 

u 

AMI 

First  integral  of  Encke  terms  of 
nominal  and  perturbation  trajectories. 

i 

| 

j? 

XRDL(6,20) 

UA 

LEFT 

Velocity  vectors  of  spacecraft  relative 
to  the  reference  body  on  nominal  and 
perturbation  trajectories.  Includes 
Cartesian  coordinates  plus  magnitude, 
square  and  cube  of  speed. 

1 

D2XIL(80) 

U 

AMI 

Array  of  second  derivatives  represent- 
ing the  En^ke  perturbations  for  the 
nominal  and  perturbation  trajectories. 
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Mil  PI  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

MPRNT 

SUA 

Current  time,  equal  to  TBLT. 

XMDKM 

U 

FRAN 

Conversion  factor  for  distance,  equ"l 
to  the  number  of  kilometers  in  1 AU. 

IREFNO 

UA 

INTEG 

Identification  number  of  current  reference 
body. 

*U  T OFL  Ca  .-<U»T  SET  - C.S.F  A 5 T Of*  - *«Vf«BE*  Iff* 
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Name:  MINMX3 

Calling  Arguments:  NSET,  XERROR,  XCONVG 

Referenced  Sub-programs:  PMPRNT,  SIMEQ,  TRAJL,  XYZ 

Referenced  Commons:  HER,  HIS,  KAT,  MINEPS,  NPNT,  PERAPS, 

XMMM 

Entry  Points;  None 

Referencing  Sub-programs:  ITMAT 

Discussion:  MINMX3  is  the  subroutine  which  drives  the  two-point  boundary  value 
problem  to  a solution.  The  Iterator's  underlying  mathematical  analysis  if  formu- 
lated as  follows.  Let  X denote  the  vector  of  independent  variables  and  let  Y de- 
note the  vector  of  dependent  variables.  The  relationship  between  these  two  vectors 
is  given  by 

Y = F (X). 

The  vector  function,  F,  is  evaluated  by  integrating  the  trajectory;  that  is,  given 
a complete  set  of  control  parameters  and  initial  conditions,  the  corresponding 
values  of  the  end  conditions  Y can  be  determined.  Subroutine  TRAJL,  supple- 
mented with  subroutine  XYZ,  maps  X onto  Y and  is  therefore  the  software 
package  which  generates  the  function  F.  The  problem  is  to  find  the  vector  X* 
which  will  result  in  specified  values  of  the  dependent  variables  Y*,  that  is,  to 
solve 

Y*  = F(X*), 

where  Y*  13  known.  This  is  formulated  as  a minimization  problem.  The  weighted 
sum  of  the  residuals  Is  given  by 

qt  = rY*  - F(Xt)' 1 TWy  [y*  - F(Xt)]  , 

where  Xj  is  the  current  estimate  of  the  independent  variables  and  Is  a 
diagonal,  positive  definite  weighting  matrix. 


! 1 


I 
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MTNMX3-1 


The  problem  is  to  choose  a new  value  X,  „ to  minimize  q,.,«  IF  X, 

1+1  l+l  l+l 

Is  close  to  Xj , then 

F(Xl+1)  = F (X()  + PAX, 

where  AX  - X,  - X and  the  partial  derivative  matrix,  P,  Is  given  by 
l+l  l 


Evaluating  q^  with  this  approximation  leads  to  the  expression, 

qi+1  = (AY  - PAX)TWy  (AY  - PAX), 

where  Ay,  the  residual  vector,  is  given  by 

AY  = Y*  - F (Xt)  . 

The  problem  Is  then  to  choose  AX  to  minimize  q^. 

For  nonlinear  functions  F,  linear  approximations  work  only  If  AX  is 
small.  Therefore,  the  following  constraint  is  imposed, 

AXTW  AXU, 
x 

where  W is  the  Input  diagonal,  positive  definite  weighting  matrix  associated 

X 

with  the  independent  parameters. 

Attaching  the  constraint  with  a positive  scalar  Inhibitor,  X , the  quantity 
to  be  minimized  Is  given  by 

q = (AY  - PAX)Tw  (AY  - PAX)  + X (AXTW  AX). 

y 

Finding  the  minimum  of  the  function  yields  the  solution, 


This  equation  Is  solved  by  subroutine  SIMEQ.  It  can  be  shown  that  as  X Increases, 
t decreases  monotonically.  Therefore,  X can  always  be  chosen  large  enough  to 
satisfy  the  above  Inequality.  Moreover,  If  X Is  sufficiently  large,  the  correction 


Is  approximately 


AX  = f W _1  (PTW  ) Ay  . 
X x v 


For  AX  small  enough,  or  X large  enough,  we  are  guaranteed  that 


Vi s qi  • 

It  Is  advantageous  to  take  as  large  a step  toward  satisfying  Y*  - F(X*) 
as  possible.  The  procedure  Is  Initiated  with  a relatively  small  value  of  X.  The 
Idea  is  to  make  a correction,  determine  if  any  Improvement  is  made,  and,  If  not, 
cut  back  on  the  correction.  The  following  iteration  scheme  is  utilized.  Given 
Xj.  the  mapping  F is  executed  again  to  produce  Y^+1  starting  with  the  values 
X^  = X{  + AX,  and  q is  calculated.  q^+^  Is  then  compared  with  q^.  If 
there  Is  no  Improvement,  X Is  increased.  Ax  is  recalculated  and  a new  mapping 
Is  executed.  This  is  repeated  until  an  improvement  results.  When  this  happens, 
the  mapping  is  executed  again,  and  the  partial  derivative  matrix  is  computed.  X 
is  reduces  by  a factor  of  64.  The  iteration  continues  until  the  end  conditions 
are  satisfied  within  the  presci  ;bed  tolerance  or  no  significant  improvement  can 
be  made  or  the  maximum  number  of  iterations  is  exceeded. 

The  conLtralnts,  Y,  are  divided  into  two  types,  parameters  that  are 
driven  to  a given  value  (point  constraints)  and  parameters  to  be  maximized  or 
minimized  (performance  indices). 

For  a well-posed  problem,  there  is  only  one  performance  index.  For 

each  dependent  variable,  y. , tw'o  values  must  be  specified,  y and  y 

l min  max 

These  values  indicate  the  acceptable  range,  if  a dependent  variable  is  a point 

constraint,  y , and  y are  chosen  close  together 
min  max 
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ymln  = y* 


- 6 ; v = y*  + 6 , 
Jmax 


where  y*  Is  Ihe  desired  value  and  6 Is  a tolerance  utilized  for  weighting  purposes. 
For  the  performance  Index,  Ihe  Interval  Is  chosen  so  that  It  cannot  possibly  be 
attained  If  the  other  constraints  are  satisfied.  For  Instance,  If  y Is  to  be  mini- 
mized, y , and  y are  taken  smaller  than  attainable,  conversely  If  y Is 
• min  max 

to  bo  maximized,  y , and  y are  taken  larger  than  attainable.  In  this  way 
min  max 

the  Iteration  procedure  drives  the  variable  to  be  optimized  in  the  correct  direction 
until  no  significant  improvement  is  possible  or  the  Input  maximum  number  of  Itera- 
tions Is  exceeded. 

Two  modes  of  solution  are  available,  the  select  mode  and  the  optimize 
mode.  In  the  select  mode,  the  Iterator  attempts  only  to  satisfy  the  point  constraints. 
• The  optimize  mode  adds  the  performance  index  to  the  end  conditions  and  through 
proper  weighting,  generates  trajectories  with  an  Improved  performance  Index  while 
maintaining  satisfaction,  or  near  satisfaction,of  the  point  constraints 


The  scale  matrices  W and  W are  used  to  make  elements  of  the  vectors 

x y 

X and  Y con  atlble  for  the  iteration  procedure.  The  relative  importance  of  the 

variables  is  represented  In  this  way.  Differing  magnitudes  are  compensated  for 

through  the  weighting  matrixes.  W Is  Input  to  the  program,  W Is  computed 

x y 

Internally  using  the  Input  tolerances  and  importance  factor".  For  point  constraint 
variables,  the  elements  of  are  given  by  the  following  relation: 


W « 


y 


where  6 is  the  corresponding  tolerance.  The  weighting  factor  for  the  perfor- 

y 

mance  Index  Is  computed  from 


W = 

y 


n_ 

2 


-40 

2 


378 


where  r Is  the  performance  Index  residual  and  n is  10  when  the  Iterator 
ts  operating  In  the  select  mode  and  256  WTOPT  when  In  the  optimize  mode. 

This  balances  the.  residual  In  the  parameter  being  optimized  against  the  weighted 
residuals  In  the  other  variables,  to  satisfy  the  constraints  as  the  optimization 
proceeds. 

Messages  and  Printout:  Several  diagnostic  and  information  messages  are  pro- 
vided to  Inform  the  us^r  as  to  the  progress  made  by  the  Iterator  or  any  problems 
encountered.  In  all  cases,  upon  exiting  the  routine,  the  trajectory  counters, 

KOTJNT  and  L,  are  printed  in  the  following  message: 

TRAJECTORIES  WITHOUT  PARTIAL  DERIVATIVES  AND TRAJECTORIES 

WITH  PARTIAL  DERIVATIVES  REQUIRED  FOR  THIS  CASE. 

If  the  problem  does  not  Involve  a performance  Index  and  all  point  constraints 
are  satisfied  or  if  a performance  Index  is  being  optimized  and  no  further  improve- 
ment Is  possible,  the  following  message  is  printed: 

THIS  CASE  IS  CONVERGED. 

Upon  attainment  of  convergence  in  the  select  mode  and  just  prior  to  starting 
the  optimize  mode,  the  message 

ITERATOR  IS  NOW  IN  OPTIMISE  MODE. 

Is  printed. 

If  the  point  constraints  can  not  be  satisfied  In  the  select  mode,  one  gets 
the  message: 

THIS  CASE  WILL  NOT  CONVERGE. 

If  the  number  of  iterations  In  either  the  select  or  optimize  mode  exceeds 
the  Input  limit  ITMAX,  the  following  message  Is  printed: 


MAXIMUM  NUMBER  OF  ITERATIONS  EXCEEDED. 


If  an  error  condition  is  detected  in  TRAJL  on  the  first  trajectory  (usually 
resulting  from  input  errors),  the  following  message  is  printed: 

FIRST  GUESSES  WILL  NOT  PUN  TRAJECTORY. 

If  an  error  condition  is  detected  in  TRAJL  while  generating  the  nominal 
and  perturbation  trajectories,  the  following  message  is  printed: 

ERROR  IN  PARTIAL  DERIVATIVE  CALCULATION. 

Any  one  of  the  last  four  messages  above  will  also  generate  the  message: 

ITERATOR  IS  GIVING  ERROR  RETURN. 

and  flags  an  error  condition  to  be  returned  fro  m MINMX3  through  the  calling  argu- 
ment XERROR. 

If  an  error  condition  occurred  in  SIMEQ  while  operating  in  the  optimize 
mode*  and  recovery  is  not  likely,  the  following  message: 

MATRIX  lNVERSTON  NOT  PERFORMED  ON  LAST  ITERATION. 

is  printed  and  the  error  condit.i  m flag  XERROR  is  set. 


MINMX3  EXTERNAL  VARIABLES  TABLE 


Var’able 

Use 

Common 

Description 

B(30) 

SUA 

XMMM 

Array  of  independent  variable  values, 

X. 

L 

SU 

KAT 

Nominal  trajectory  counter,  '.ncremented 
each  time  a partial  derivative  matrix  is 
evaluated. 

Q(30) 

SU 

XMMM 

Array  of  dependent  variable  values,  Y. 

W(30) 

SUA 

/ r ray  of  dependent  variable  weights,  W . 

B2(30) 

SUA 

B array  of  preceding  trial  trajectory. 
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MINMX3  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

DB(30) 

SUA 

Array  of  independent  variable  changes, 

AX. 

KB 

SUA 

Number  of  independent  variables. 

KQ 

SUA 

Number  of  dependent  variables. 

PM(900) 

SUA 

Array  containing  the  negative  of  the 
partial  derivative  matrix. 

RM 

UA 

PERAPS 

Desired  final  distance  relative  to  target 
planet. 

RP 

UA 

PER  A PS 

Desired  periapse  distance  of  osculating 
orbit  at  the  target  planet. 

WX(30) 

U 

HIS 

Array  of  independent  variable  weights,  W . 

EMU 

UA 

PERAPS 

Gravitational  constant  of  target  planet. 

EPS(30) 

U 

MINEPS 

Limiting  step  size  for  independent 
variables  below  which  convergence  is 
assumed  in  the  optimize  mode. 

IPS 

UA 

HER 

1 

Number  of  dependent  variables. 

NPR 

U 

NPNT 

Partial  derivative  matrix  print  flag. 

NSL 

u 

HER 

Number  of  independent  variables. 

PFG(?0,30) 

u 

HIS 

Partial  derivative  matrix,  P. 

DXPM(930) 

SUA 

T 

Array  containing  the  matrix  (P  W^P 
+ X W ) in  the  first  KB^  locations.  The 

X 

next  KB  locations  contain  the  array 

i 

pTw  Ay. 
y 

IPER 

u 

PERAPS 

Flag  indicating  whether  the  transforma- 
tion from  periapse  distance  to  Cartesian 
coordinates  was  performed. 

MINMX3  EXTERNAL  VARI HU.ES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

NSET  (5) 

UX 

Array  of  counters  and  flags  input  to 
MINMX3: 

1 - number  of  independent  variables 

2 - number  of  dependent  variables 

3 - maximum  number  of  iterations 

permitted  in  the  select  mode 

4 - trigger  indicating  whether  to  start 

in  select  (=0)  or  optimize  (-^0)  mode 

5 - maximum  number  of  iterations  per- 

mitted in  optimize  mode 

QMAX(30) 

UA 

XMMM 

Array  of  upper  allowable  values  of  the 
end  conditions. 

Q MIN (30) 

UA 

XMMM 

Array  of  lower  allowable  values  of  the 
end  conditions. 

RDOT(3) 

A 

PER  A PS 

Velocity  relative  to  the  target  planet  at 
the  final  time. 

X EPS  (30) 

U 

HIS 

Array  of  maximum  independent  variable 
step  sizes  permitted  in  a single  iteration. 

YEPS(30) 

A 

HIS 

Array  of  tolerances  to  which  end  condi- 
tions must  be  satisfied. 

KOUNT 

su 

KAT 

Counter  of  trial  trajectories. 

LSOLU 

SUA 

Error  condition  flag  returned  from 
SIMEQ. 

MOPTM 

U 

XMMM 

Index  parameter  defining  which  of  the 
dependent  variables  is  the  performance 
index. 

QAVRG(30) 

SUA 

Array  of  desired  values  of  the  end 
conditions. 

MINMX3  EXTERNAL  VARIABLES  TAU1.E  (cont) 


Variable 

Use 

Common 

Description 

WTOPT 

U 

XMMM 

Weight  factor  applied  to  the  performance 
index  in  the  optimize  mode. 

LAMBDA 

su 

KAT 

Inhibitor, 

LERROR 

UA 

Error  flag  returned  from  subroutine 
TRAJL. 

XCONVG 

SX 

Convergence  indicator  returned  from 
MINMX3. 

X ERR OR 

sx 

Error  flag  returned  from  MINMX3. 
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Name: 


MODIF 


I 

l 

I 

I 

H 


•] 


* * 

II 

B 

«H» 


I 


Calling  Arguments: 
Referenced  Sub-programs: 
Referenced  Commons: 
Entry  Points: 

Referencing  Sub-programs: 


None 

LAMBRT 

HENRY,  LEFT,  STEVE,  TBPR 

None 

INPUT 


Discussion:  The  principal  purpose  of  subroutine  MODIF  is  to  provide  a means 
of  altering  program  constants  that  are  not  availably  through  normal  input  means. 
MODIF  is  called  from  INPUT  after  completing  all  other  reading  of  inputs  and 
initializations.  The  present  code  performs  the  following  assignments.  The 
masses  of  the  moon,  Earth-moon  barycenter.  Mercury,  Saturn,  Uranus,  Neptune, 
and  Pluto  are  set  to  zero;  the  spacecraft  distance  from  the  moon  is  set  to  zero  in 
the  VCOL  array,  the  radius  of  the  moon's  sphere  of  influence,  RRM,  is  set  to  a 
large  negative  number,  the  integration  interval  is  set  to  a large  value  and  the  two- 
body  flag  ITB  is  set  to  zero.  Just  prior  to  executing  a return  to  the  calling  pro- 
gram INPUT,  a call  is  made  to  subroutine  LAMBRT. 


MODIF  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

ME  (12) 

S 

HENRY 

ITB 

S 

TBPR 

i'KOLKi.JV-i-  /.■*■  ••  . . . f.Uifca) 


Description 


Array  of  planetary  masses  in  units  of 
Earth  masses  for  index  values  < 3 
(Earth  and  moon),  and  In  sun  masses 
otherwise. 

Flag  indicating  whether  time  or  uni- 
versal anomaly  is  the  independent 
variable  input  to  TBDP. 


"7 


401 


i 


MODTF-l 


-Z*1 


MODIF  EXTERNAL  VARIABLES  TABLE  (cont) 


Vartable 

Use 

Common 

Description 

MEI(12) 

S 

HENRY 

Array  of  planetary  masses,  In  units  of 
Earth  masses. 

RRM 

S 

HENRY 

Radius  of  the  moon's  sphere  of  Influence, 
In  ER. 

DELT 

S 

STEVE 

Integration  Interval  of  the  universal 
anomaly,  A/3. 

VCOL(72, 20) 

S 

LEFT 

Array  of  spacecraft  position  vectors 
relative  to  all  planets  for  nominal 
and  perturbed  trajectories. 

i a*i»r 


Name:  MTMT 

Calling  Arguments:  A,  B,  C 

Referenced  Sub-programs;  None 
Referenced  Commons:  None 

Entry  Points:  None 

Referencing  Sub-programs:  SOLENG 


Discussion:  This  subroutine  computes  the  product  of  two  3x3  matrices.  The 
input  matrices  are  A and  B and  the  product  is  returned  In  the  array  C.  The 
equation  for  each  element  of  C is 

& 

Clj“'  AlkBkj  ; l,J"1'2,3* 

k=l 


MTMT  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

A(3,3) 

UX 

B(3,3) 

ux 

C(3,3) 

sx 

Common 


Description 


Input  3x3  array. 

Input  3x3  array.  . 

Output  3x3  array  containing  the 
product  of  A and  B. 


MTMT-l 


MTMT-3 


I 

I 

i 

I 

I 

a 


\ 

i 1 1 


n 

i! 


i! 


n 


i 


mm 

if 

as 

mi 


mm 


Name:  MTVT 

Calling  Arguments:  A,  B,  C 

Referenced  Sub-programs:  None 

Referenced  Commons:  None 

Entry  Points:  None 

Referencing  Sub-programs:  SETI,  SOLENG 


Discussion:  This  subroutine  computes  the  product  of  a 3x3  matrix  A operating 
on  a 3-dimensional  vector  B.  The  result  is  returned  in  the  3-dimensional  array 
C.  Each  element  of  C is  calculated 


A..  B 
0 J 


i = 1,2,3. 


MTVT  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

A(3, 3) 

UX 

Input  matrix . 

B(3) 

UX 

Input  vector . 

C (3) 

SX 

Output  vector  containing  the 
product  of  A operating  on  B. 

I 

i 

! 


jpBBCflPING  PAGE  BLANK  NOT  FILMED 
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MTVT-1 


MTVT-: 


1 


Name:  PDATE 

Calling  Arguments:  TDATE,  1Y,  IM,  ID,  HOUR 

Referenced  Sub-programs:  None 


Referenced  Commons:  None 

Entry  Points:  None 

Referencing  Sub-programs:  LAMBRT 

Discussion:  Subroutine  PDATE  evaluates  the  calendar  date,  given  the  Julian  date. 
The  procedure  is  to  first  subtract  the  Julian  date  (with  leading  24  omitted)  of 
15020.5  from  the  input  date  to  obtain  the  number  of  days  from  January  1.0,  1900. 
The  year  of  the  input  date  is  then  determined  by  entering  a loop  and  accumulating 
the  sum  of  days  in  all  years  from  1900  until  the  sum  exceeds  the  number  of  days 
first  determined  on  entry  to  PDATE.  The  number  of  days  from  the  start  of  that 
year  is  then  determined  and  used,  with  the  aid  of  a data  table,  to  define  the  month 
and  day.  Any  fraction  of  a day  remaining  is  then  converted  to  hours  and  a return 
to  the  calling  program  is  executed.  The  subroutine  will  not  work  correctly  for  in- 
put dates  later  than  the  year  2100. 

Messages  and  Printout:  If  a date  later  than  the  year  2100  or  earlier  than  the  year 
1900  is  input,  the  following  message  is  printed: 

PDATE  ERROR 

PDATE  EXTERNAL  VARIABLES  TABLE 


Description 


Calendar  day  of  the  month. 
Calendar  month. 

Calendar  year. 

Hour  of  the  day. 


Variable 

Use 

ID 

SX 

IM 

SUX 

IY 

SUX 

HOUR 

SX 

TDATE 

ux 

Input  Julian  date,  with  leading  24  omitted. 


’preceding  page  blank  not  filmed 
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Name: 


PMPRNT 


PM,  MQ,  MB 


Referenced  Sub-programs:  None 


Referenced  Commons:  None 

Entry  Points:  None 


Referencing  Sub-programs:  MINMX3 


Discussion:  This  subroutine  prints  the  partial  derivative  matrix  used  In  the  solution 

of  the  two  point  boundary  value  and  parameter  optimization  problem.  The  matrix  Is 

Input  In  the  array  PM;  the  number  of  dependent  variables  Is  MQ  and  the  number  of 

Independent  variables  Is  MB.  Denoting  the  vector  of  dependent  variables  as  Y, 

with  elements  y^,  and  the  vector  of  Independent  variables  as  X,  with  elements  Xy 

then  the  first  line  of  printout  Is  dy./5>y  j = 1,  — , MB;  the  second  line  Is 

dy  /dx  , j = 1,  — , MB;  and  so  on.  Each  line  may  comprise  more  than  one 
2 j 

printer  line,  as  each  printer  line  will  accomodate  a maximum  of  ten  values.  If 
there  are  more  than  ten  Independent  variables,  the  format  is  repeated.  A blank 
line  separates  the  derivatives  of  two  different  end  conditions. 

Messages  and  Printout;  The  format  of  the  printed  matrix  simply  comprises  lines 
of  up  to  ten  values  with  field  format  of  1PD13.5.  The  lines  of  printout  are  single 
spaced  for  partlals  of  the  same  dependent  variable  and  double  spaced  between 
parttals  of  different  dependent  variables. 

PMPRNT  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

MB 

UX 

Number  of  independent  variables. 

MQ 

UX 

Number  of  dependent  variables. 

PM(MQ,MB) 

UX 

Partial  derivative  matrix. 

l 


PMPRNT-1 


PMPRNT-3 


Name: 


RADII 


Calling  Argument: 
Referenced  Sub-programs: 
Referenced  Commons: 
Entry  Points; 

Referencing  Sub-programs: 


XW 

None 

None 

None 

DERIV,  FNMAT,  RECT 


Discussion:  Given  any  3-vector  R,  RADII  computes  the  magnitude,  magnitude 

squared,  and  magnitude  cubed  of  that  vector.  Denoting  the  Cartesian  components 

of  R to  be  x,  y,  z and  Its  magnitude  to  be  r,  the  contents  of  XW  are  x,  y,  z, 

3 2 

r , r,  r in  elements  1-6,  respectively.  Upon  entering  RADII,  the  contents  of 
XW(6)  are  stored  In  a temporary  location,  and  the  magnitude  squared  of  the  in- 
coming vector  is  evaluated 

XW(6)  ■ r2  * x2  + y2  + z 
2 

If  this  value  equals  the  saved  value  of  r , then  further  computations  are  by- 

3 

passed,  as  it  is  assumed  that  R has  not  changed  and  therefore  r and  r need 
not  be  recomputed.  Otherwise,  the  magnitude  of  R is  computed, 

XW(5)  * r « J7 

and  the  magnitude  cubed  is  obtained, 


XW(4)  = r3  « rr2. 

RADII  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

XW(6) 

SUX 

A vector  and  the  first  three  powers 
of  its  magnitude. 

PR31LDLNG  PAOL  BLANK  NOT  FiiAlKD 
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RADII-3 


Name:  RECT 

Calling  Argument:  None 

Referenced  Sub-programs : RADII 

Referenced  Commons;  . ALAN,  AMI,  CONVP.T,  FRAN,  HENRY,  ILEF, 

INTEG,  LEFT,  LEON,  STEVE 

Entry  Points:  None 

Referencing  Sub-Programs:  TRA-JL 

Discussion:  The  purpose  of  this  subroutine  Is  to  rectify  the  two  body  reference 
trajectory  to  the  current  position  and  velocity  and  to  compute  and/or  Initialize 
selected  parameters  to  the  new  reference.  Rectifications  of  the  reference  tra- 
jectory may  be  initiated  for  any  of  a number  of  reasons,  such  as  the  ratio  of 
deviations  In  position  or  velocity  from  the  reference  to  the  corresponding  two 
body  parameter  exceeding  a specified  value,  the  change  In  eccentric  anomaly 
since  the  last  rectification  exceeding  a specified  value,  the  switching  from  one 
reference  body  to  another,  or  the  start  of  a new  trajectory  arc.  The  criteria  i r 
rectification  due  to  position  or  velocity  deviations  is  defaulted  to  a value  of  o.Ol 
for  the  ratio  of  the  magnitude  of  the  deviation  to  the  magnitude  of  the  correspond- 
ing position  or  velocity.  These  defaults  may  be  changed  by  the  Input  parameters 
POSRCS  and/or  VELRCS  which  represent  the  square  of  the  maximum  allowable 
ratios  In  position  and  velocity,  respectively.  The  default  value  for  change  in 
eccentric  anomaly  Is  1.5  radians  and  may  be  changed  with  the  input  parameter 
THTS. 

The  rectification  involves  redefining  the  current  two  body  position  and 
velocity  vectors 

VR 

V® 

«R.  R 
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R • R 


where  R denotes  the  current  position  vector  in  the  current  reference  frame  of 
Integration,  r - |r|  , p is  the  gravitational  constant  of  the  reference  body,  a 
is  the  semi-major  axis,  and  the  subscript  k denotes  the  reference  two  body  tra- 
jectory.  The  integrated  Encke  terms  £ and  £ are  adjusted  as  follows 


V0: 


i - o. 


n 


where  the  subscript  ! refers  to  the  i**1  perturbation  trajectory  and  n denotes 
the  nominal  trajectory.  In  addition  the  universal  variable  0 is  set  to  zero  and 
the  gravitational  constant  is  reset  in  case  the  reference  body  of  integration  just 
changed.  The  gravitational  constant  rrray  KM  is  reset  in  case  a switch  in 
reference  body  has  occurred  which  would  require  a change  in  units  of  the  KM 
array.  The  computation  is 

KM(I)  = Hq  m^(I)  tf  in  Earth  or  moon  reference 

KM  (I)  = 11^  (I)  if  not  in  Earth  or  moon  reference 

3 2 

and  are  the  gravitational  constants  of  the  Earth  in  ER  /hr  and  sun  in 

AU3/hr  , respectively,  m (I)  is  the  mass  of  the  1^  body  in  Earth  masses  and 

m (I)  is  the  mass  of  the  I**1  body  in  sun  masses.  The  rectification  print  is  then 
O 

executed  unless  excluded  by  the  input  flag  NOPT(16).  Control  is  then  returned  to 
the  calling  subroutine. 

Messages  and  printouts:  If  N0PT(16)  is  input  zero,  selected  information  is  printed 
at  each  rectification  point.  The  format  is  as  follows: 


(Reason)  RECTIFICATION  PRINT  (Body) 


REFERENCE 


PERT  OVER  UN  PERT- 


l a" 


TIME* 


DELTA  T= 


426 


{ 


i i 

; i 


<■ . 


* | 


T 


The  "reason"  for  the  rectification  is  printed  as  one  of  the  following  four  possibili- 
ties: 

VEL,  POS,  TH  or  blank 

corresponding  to  velocity,  position,  change  in  eccentric  anomaly,  or  other, 
respectively.  The  "body"  printed  is  the  name  of  the  reference  body  of  integration 
in  which  the  rectification  occurred.  If  the  rectification  occurred  because  of  a 
reference  switch,  the  name  of  the  new  reference  body  will  be  printed  here.  On 
the  second  line  the  quantity  TIME  denotes  the  time  of  rectification  and  DELTA  T 
is  the  integration  interval.  The  quantity  denoted  as  PERT  OVER  UNPERT  will  be 
non-zero  only  if  the  "reason"  for  rectification  Is  non-blank.  If  POS  is  printed  for  the 

reason,  then  the  quantity  PERT  OVER  UNPERT  is 

« • </<Rk  ’ V 

if  the  reason  is  printed  VEL,  the  quantity  is  evaluated 

and  if  the  reason  is  printed  TH,  the  quantity  is  evaluated 

TH  = 6 = E - E , 
o 

where  E is  the  eccentric  anomaly  and  the  subscript  o refers  to  the  preceding 
rectification  point.  All  numbers  are  printed  with  the  format  D17. 8. 


t RECT  EXTERNAL  VARIABLES  TABLE 

i * - ■ ■ 1 ■■ 1 


1 

. i 

Variable 

Use 

Common 

Description 

n 

T 

U 

ALAN 

Current  time,  t,  in  hours  from 

i s 

departure  of  the  launch  parking  orbit. 

* •* 

! 1! 

10 

U 

INTEG 

Logical  unit  on  which  principal  program 

m * 

output  is  printed. 

n 

KM  (12) 

S 

HENRY 

Array  of  gravitational  constants  of  sun, 

* * 

moon  and  planets. 
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RECT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

\ Common 

Description 

ME  (12) 

SU 

HENRY 

Planetary  mass  array,  scaled  according 
to  the  reference. 

TI 

S 

STEVE 

Time  of  rectification,  t^,  in  hours  from 
departure  of  the  launch  parking  orbit. 

XI(80) 

SE 

AMI 

Position  deviation  from  two  body  reference 
trajectory,  £ » on  nominal  and  perturbation 
trajectories. 

KSQ 

SU 

STEVE 

Gravitational  parameter  of  reference 
planet,  /i. 

NQN 

U 

ILEF 

Number  of  equations  being  integrated  on 
each  trajectory,  including  first  and 
second  order. 

XID(80) 

SE 

AMI 

Velocity  deviation  from  two  body  reference 
trajectory,  | , on  nominal  and  perturbation 
trajectories. 

XRI(6) 

SUA 

STEVE 

Spacecraft  position  vector  at  rectification 
relative  to  reference  body  of  integration, 

V 

XRL(6, 20) 

U 

LEFT 

Cartesian  position  vector  of  spacecraft 
relative  to  reference  body  of  integration, 
R,  on  nominal  and  perturbed  trajectories. 

BETA 

s 

AMI 

Universal  anomaly,  /?. 

DELT 

u 

STEVE 

Normal  integration  step-size. 

KSQQ(12) 

u 

HENRY 

Array  of  reference  body  gravitational 
factors  for  planets,  sun  and  moon. 

NEQL 

u 

ILEF 

Number  of  trajectories  being  integrated 
simultaneously,  nominal  plus  perturbed. 

NOPT(72) 

u 

INTEG 

Array  of  program  option  flags 
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RECT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

OlAD 

S 

STEVE 

Inverse  of  semi-major  axis,  l/a^. 

REKM 

U 

HENRY 

Conversion  factor  for  distance;  eqaa'  to 
the  number  of  kilometers  in  1 EP . 

XRDL(6, 20) 

u 

LEFT 

Spacecraft  velocity  vector  relative  to 
the  reference  body  of  integration, 
Includes  nominal  and  perturbation  tra- 
jectories. 

NPLAN 

u 

INTEG 

Number  of  planets  included  in  the 
simulation. 

RATIO 

u 

HENRY 

State  deviation  criteria  used  in  con- 
junction with  rectification  criteria. 

RDOTD 

su 

STEVE 

d^R-A. 

SQTMU 

su 

STEVE 

Square  root  of  reference  body  gravity 
tional  factor,  -v/ju  . 

TMPDP 

s 

LEON 

TM2DP 

s 

STEVE 

d^/  *T\i . 

’ XMDKM 

u 

FRAN 

Conversion  factor  for  distance;  equal  to 
the  number  of  kilometers  in  1 AU. 

XRIDT(6) 

SUA 

STEVE 

Spacecraft  velocity  vector  at  rectifica- 
tion relative  to  reference  body  of 
integration,  R^. 

APSCON 

s 

CONVRT 

Factor  for  converting  units  of  accel- 
eration from  m/ sec2  to  ER/hr2  or 
AU/hr2. 

IDUMMY 

u 

INTEG 

Flag  equal  to  1, 2, 3 or  4 which  defines 
whether  rectification  was  required 
because  of  velocity  deviation,  position 
deviation,  change  in  eccentricity 
anomaly  or  other,  respectively. 

TREFNO 

u 

INTEG 

Reference  body  identification  number. 

I 


429 


133«  StfiAdvCAS  - Hill  iHO 


«r;co«  * 
*P SC  | /PC*" 


CN«ftT  TfTi.t  - »rw-»Aor f cu »«l  s m rrwr*  r s 


I 

I 

1 

a 


i 

i 


X 


Name:  REMTIM 

Calling  Arguments:  I,  J 

Referenced  Sub-programs : None 

Referenced  Commons:  None 

Entry  Points:  None 

Referencing  Sub-programs:  TRAJL 


Discussion:  REMTIM  is  delivered  as  a dummy  routine,  but  should  be  recoded  as 
appropriate  at  each  installation  to  return  to  the  program  the  amount  of  time  re- 
maining for  the  job.  The  first  argument  I should  contain  the  amount  of  CPU 
time;  the  second  argument  J should  contain  the  amount  of  I/O  time  remaining. 

In  the  dummy  routine  provided,  both  arguments  are  set  to  9999.  This  permits 
ASTOP  to  execute  and  effectively  ignores  the  job  time-out  feature. 


REMTIM  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

I 

SX 

Job  CPU  time  remaining,  in  seconds. 

J 

SX 

Job  I/O  time  remaining,  in  seconds. 

REMTIM-1 


REMTIM-3 


SAMM 

TBAR,  TOBAR,  RXTB,  RXDTB,  RTX,  RDTX, 
IOPT 


Referenced  Sub-programs:  DCUBIC,  SUBFG 


Referenced  Commons: 
Entry  Points: 


SAML1,  THAD 


None 


Referencing  Sub-programs:  SETI 


Discussion:  Subroutine  SAMM  solves  the  two-body  conic  equations  for  position 
• • 

R and  velocity  R at  a time  t,  given  position  R and  velocity  R at  an  earlier 

o o 

time  tQ.  On  option,  the  subroutine  also  evaluates  the  state  transition  matrix  $ 
(tQ,  t)  ;or  the  transfer  from  time  t to  t.  To  commence  the  procedure,  the 
following  two-body  variables  are  evaluated 


r avR  * R 
o o o * 


v * R • R 
o o o 


d »R  • R 
o o o 


1 2 o 

a * r n ' 

o 

where  a Is  the  semi-major  axis  and  M is  the  gravitational  constant  of  the  refer- 
ence body.  If  a Is  greater  than  zero  (l.e.,  the  conic  Is  elliptical),  the  time 
Interval,  At  ■ t-t  , is  compared  to  the  period  of  the  orbit 


t-2ir 


If  At  > T,  then  At  Is  reset  to  the  fractional  portion  of  the  period,  the  Integral 
number  of  revolutions,  n.  Is  saved,  a flag  Is  set  to  denote  the  reduction  In  At 
has  occurred,  and  a message  is  printed. 


HaGDIMMM  BUNK  NOT  WUD 


l 


SAMM-1 


An  Iteration  loop  Is  then  entered  to  determine  the  Increment  A/3  in  the 
universal  anomaly  which  corresponds  to  the  given  time  Interval  At.  The  first 
guess  of  A/3  is  evaluated 

A/8q  = At/rQ  , 

and  the  corresponding  increment  squared  in  eccentric  anomaly  is  formed 

02  = (E-EQ)2  = A/32/a  . 

If  j 0 | > 1,  an  Improved  first  guess  for  A/3q  Is  evaluated  by  solving  the  cubic 
equation 

A/33  + 3d  A/3 2/<s/ji  + 6 r A/J  -6 vJT  At-0, 

O 0 0 o o 

for  A/3  . The  loop  commences  with  a call  to  SUBFG  to  evaluate  the  series 
o 

functions  G^.  The  distance  r at  the  time  t may  then  be  calculated 

r=VroVdo°/^  • 

and  the  improved  estimate  of  A becomes 

A/3  = A/3  + ^ At/r  - (G  + r G +d  G A/Ji  ,/r. 

. 1+1  I 3 0 1 O & 

The  iteration  is  terminated  when  either  of  the  two  tests 


or 


A/3  - A/3  < A/3 

pl+l  l pi+l 


€ 


A^l+.  - A^  <-/£  At  c/r  , 


-15 

Is  satisfied,  where  C»5xl0  . For  elliptic  orbits,  provisions  are  made  to 
force  /3j+1  to  remain  In  the  Interval 

-6  < /3i+J  < 6 ; 6 ■ 2ir/\/a  . 

If  is  less  than  the  lower  bound,  it  is  redefined 


440 


or  tf  /S. 


i+1 


exceeds  the  upper  bound,  then 


V'(V6)/2 


If  the  Iteration  has  not  converged,  an  iteration  counter  is  incremented  and  con- 
trol is  transferred  to  the  top  of  the  loop.  A maximum  of  40  iterations  is  per- 
mitted. If  this  limit  is  reached,  a message  is  printed  and  the  last  value  of 
A0l+l  is  used  for  all  subsequent  calculations.  The  flag  indicating  whether  a 
reduction  in  At  was  performed  for  multiple  revolutions  is  checked  and,  if 
appropriate,  the  A/3  is  adjusted  as  follows: 


A0  = A/S  + 2 irn/v'a  . 

The  two-body  f and  g functions  are  then  evaluated 

f = 1-<W 

e = At  - g3/V5  , 
f ="  Vm  G1/rrQ  , 
g =1  " G2/r  , 


and  the  desired  position  and  velocity  vectors  are 

R = fR  +gR  , 
o o 

R = f R +gR  . 
o o 

If  the  transition  matrix  for  the  transfer  is  desired,  its  computation  then  begins. 
Otherwise,  a return  to  the  calling  subroutine  is  executed. 

The  transition  matrix  is  computed  in  four  partitions  as  follows: 


SAMM-3 


where 


A i B 
C i D 


A = 9R/dR  ; 

o 


B = 9R/SR  , 
o 


C = dR/dR  ; 

o 


D = dR/dR  . 

o 


From  the  equations  above  for  R and  R, 

df  * di 

A=fl+R  jrrr-  +R  , 
o oR  o oR 
o o 


B = gl  + R 


11+R  -££_ 

• * 


BR 


dR 


df  * de 

C =f  I+R  -r~ - + R , 

o SR  o oR 
o o 


D = g 1+  R 


^i-+R  -ii, 

• n 


dR 


dR 


o o 

where  I denotes  the  3x3  identity  matrix.  The  calculation  of  the  partials  of 
f,  g,  f , and  g with  respect  to  the  initial  position  and  velocity  is  facilitated  by 
first  forming  the  auxiliary  functions 

yi=3G5-ASG4  , 
y2  = 2G4-A^G3, 
y3  = G3-A0G2, 

VV'oVV/^  • 

y5=^  y,/rrj-i  . 


Then  the  required  partial  derivatives  are  evaluated  as  follows: 
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df  r(VG)  G,  />’ 


G.  G, 


dR  L 3 
o r 


or  o 

o 


° 


SRo  L ro37S  rVS  V ro  ° rR  ° ' 


at  - gi°2  n t _i_  / _V^r 

9R  rrTS  0 Vl!  r J 
oo 


^JL  = ^LR  + _2_  (y  _ 

^ * ru  o ,,3/2  vl  r / o * 


dR 


sf  _ r y5  ^°o  /jj_  \] 

dR  L 2 22\2l/^o  2 "o  2 

orrrr  rr  r 

o o o o 


f T 

R -ta  R» 


dg  f y2  G1  / V4  M G1G2  • G2  T 

t~  = I — ±-r  ( — - G I R + -±~  R + -£  A R , 

o R u 3 2 \ 2 1 / «i  o /“  2 o 2 

orrrrr  v/ir  r 

o o o 


df  Go°2  / y<j 

■sr-  -^b  +[ — 

dR  r r ° r r r Vfl 

o o o o 


Gy.  . . 1 T 

B r- 


- • G G V G v G 

J J-.  -i^U  r + -? 

M r2^  ° r2„  ' 0 r2 


T 

B R . 


Messages  and  Printout:  If  the  maximum  number  of  iterations  in  solving  for 
A/3  is  exceeded,  the  following  message  is  printed: 


MAXIMUM  ITER.  EXCEEDED  I,  BETA,  BETAM1  = (14)  (E17. 8)  (El 7. 8) 

where  I denotes  the  number  of  Iterations,  BETA  is  A/3^  and  BETAM1  is 

The  quantities  in  parentheses  define  the  Fortran  field  format  under  which 
the  values  are  printed. 
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If  the  time  interval  t - t exceeds  the  period  of  the  elliptic  orbit,  the 
following  messages  are  printed: 

ERROR  TEAR  - TOBAll  TOO  LARGE  - (D17.S) 

REDUCTION  DEN  XX  ZZ  YY  DELT  IXX 
(D25.16)  (D25.16)  (D25.1R1  (D25.16)  (D2.r>.16)  (14) 

where  DEN  is  the  period  in  hours,  XX  is  the  time  interval  t - t expressed  in 
orbital  periods,  ZZ  is  the  whole  pari  of  XX,  YY  is  fractional  part  of  XX, 
DELT  is  the  fractional  part  of  XX  expressed  in  hours,  and  IXX  is  the  integral 
number  of  periods  (=ZZ). 


SAMM  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

G1 

U 

TRAD 

Universal  anomaly  function,  Gp 
evaluated  in  SUBFG. 

G2 

U 

THAD 

Universal  anomaly  function,  C»9, 
evaluated  in  SUBFG. 

G3 

U 

T1IAD 

Universal  anomaly  function,  G^, 
evaluated  in  SUBFG. 

G4 

U 

THAD 

Universal  anomaly  function,  G^, 
evaluated  in  SUBFG. 

G5 

U 

THAD 

Universal  anomaly  function,  Gr, 
evaluated  in  SUBFG.  ° 

AIJ(3, 3) 

su  ! 

SAM  LI 

Matrix  of  partials  of  the  position  at 

time  t with  respect  to  the  position 

at  time  t . 
o 

BIJ(3, 3) 

su 

SAM  LI 

Matrix  of  partials  of  the  position  at 
time  t with  l’espect  to  the  velocity 
at  time  t . 

o ; 
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SAMM  EXTERNAL  VARIABLES  TXPLE  (cont) 


Variable 

Use 

j Description 

CIJ(3, 3) 

S 

SAM  LI 

Mi’irix  of  partials  of  the  velocity  at 

lime  t with  respect  to  the  position 

at  time  t . 
o 

DIJ  (3 , 3) 

s 

SAML1 

Matrix  of  partials  of  the  velocity  at 

time  t with  respect  to  the  velocity 

at  time  t . 
o 

GGO 

u 

THAD 

Universal  anomaly  function,  G , 
evaluated  in  SUBFG.  ° 

NRE 

A 

Number  of  real  roots  to  the  cubic 
equation  solved  in  DCUBIC. 

RES(3) 

UA 

Array  of  solutions  to  the  cubic  equation 
solved  in  DCUBIC. 

RTB(3) 

su 

SAML1 

Position  vector  at  time  t. 

RTX(3) 

sx 

Position  vector  at  time  t,  equal  to  RTB. 

SEA  (3) 

SA 

Array  of  coefficients  of  the  cubic  equa- 
tion solved  in  DCUBIC. 

XMU 

u 

SAML1 

Gravitational  constant  of  central  body. 

IOPT 

ux 

Flag  indicating  whether  the  state  transi- 
tion matrix  is  desired. 

= 1 - matrix  is  to  be  evaluated 
4 1 — matrix  is  not  wanted 

OlAD 

su 

SAML1 

Inverse  of  semi-major  axis,  l/a. 

RDTB(3) 

su 

SAML1 

Velocity  vector  at  time  t. 

RDTX(3) 

sx 

Velocity  vector  at  time  t,  equal  to 
RDTB. 

RXTB(3) 

ux 

Position  vector  at  time  t , equal  to 
ROTB.  0 
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SAMM  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

R0TB(3) 

SU 

SAM  LI 

Position  vector  at  time  t . 

0 

TBAR 

UX 

Time  t. 

RXDTB(3) 

ux 

Velocity  vector  at  time  t , equal  to 
RODTB.  ° 

R0DTB(3) 

SU 

SAML1 

Velocity  vector  at  time  t . 

o 

TOBAR 

ux 

Time  t . 
o 

BETA  Ml 

SU 

THAD 

Increment  in  universal  anomaly,  A/8, 

between  t and  t. 

0 

THETA2 

SUA 

Square  of  the  difference  in  eccentric 
anomaly  between  t and  t,  02. 

$r*c3i  > - 
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IT*  T 
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I I » 


I a « 

9 9*  t 

t 


9 « *'*-'*• 


a u u u «» 


SAMM-15 


Name: 

Calling  Argument: 


SETI 


None 

Referenced  Sub-programs:  AMAL,  DIAG1,  MTVT,  SAMM 

Referenced  Commons:  ALAN,  AMI,  AMI,  HENRY,  HER,  HIS,  ILE*\ 

INTEG,  JERR,  JHW,  LEFT,  MEL,  NOMLL, 
RSCAL,  SAML1,  VPLLL,  XMMM 

Entry  Points:  No»v> 

Referencing  Sub-programs:  INIT 

Discussion:  Subroutine  SETI  performs  the  initialization  of  selected  tiajectory 

and  partial  derivative  matrix  counters,  flags  and  variables.  Upon  each  entry, 

the  counters  JN,  NTP,  NCT1,  NQN,  NS,  N4,  and  NS1,  the  flag  ISOL,  the 

variable  TP1,  and  the  arrays  XIL  and  XIDL  are  Initialized.  On  the  first  entry 

only  of  a case  the  counter  NJ;  the  flags  ISP,  ITD,  ITD1,  and  ISPT;  the  variable 

TBET,  the  last  five  elements  of  CHN  and  CHNS  (corresponding  to  Ao>,  Ah, 

Ai,  Av  and  v , respectively,  In  each  array) ; the  first  seven  elements  of 
po  po  _ 

CHNG  (corresponding  to  the  Initial  state);  and  the  unit  vectors  h and  l are 
initialized,  where 

b * (R  x R )/  |R  x It  | , 
o o ' o o' 

l “ (ic  x h)/  |k  x h|  . 

R is  the  Initial  geocentric  spacecraft  position  and  k is  along  the  North  Pole, 
o 

Thus,  h Is  along  the  angular  momentum  vector  md  t is  In  the  direction  of 
the  ascending  node  of  the  departure  hyperbola  on  the  equator.  Subroutine  DIAG1 
Is  called  to  Initialize  the  headings  for  the  trajectory  summary  printout. 

On  each  entry  to  SETI,  except  the  first,  the  CHN  and  CHNS  arrays  are 
updated  using  the  Independent  variable  array  B.  Also  the  Initial  time  t Is 
updated  and,  If  operating  In  the  constrained  mode,  the  spacecraft  orientation 
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I 


i 

i 


angles  0.  for  all  arcs  are  compared  to  the  input  maximum  permissible  values 

(lb  ),  and,  if  appropriate,  are  scaled  to  the  maximum  permissible  values. 

'maxi 

If  any  one  or  more  of  the  incremental  departure  orbit  parameters  A co,  AO, 

A.  or  AVpo  are  independent  variables,  the  new  initial  position  and  velocity 
vectors  are  updated  and  stored  in  the  CHN  array.  Denoting  as  Rq*,  Rq*  the 
initial  position  and  velocity  on  the  last  reference  trajectory,  then  the  new  initial 
position  and  velocity  vectors  are  evaluated 

Rq=  M(£;  Ai)  M(k,  A ft)  M(h,  Aw)  Rq*  , 

Av 

R = (1  + — E2-)  M(£',  Ai)  M(k,  AO)  M(h,  Aco)  R * , 
where  130 

l'=  M(k,  AO)  l , 

and  M(a,  oc)  denotes  a general  rotation  matrix  operation.  This  matrix  is  evaluated 

in  subroutine  AMAT  . If  the  initial  time  and/or  speed  of  departure  from  a fixed 

orbit  are  specified  as  independent  variables,  then  the  new  initial  position  and  velocity 

are  computed  for  each  trajectory  and  stored  in  the  CHN  array.  If  t is  a 

variable,  then  subroutine  SAMM  is  called  to  rotate  the  initial  position  and  velocity 

vectors  to  the  new  launch  time.  If  v is  a variable,  the  initial  mass  is  com- 

po 

puted  for  the  new  departure  speed,  and  the  departure  velocity  is  evaluated 


where  v is  a unit  vector  along  the  parking  orbit  velocity . 

After  determining  the  initial  state,  as  above,  fi  = /^iro  is  stored  in 
RHBR  and  the  counters  NSL1,  NEQL  and  NEQN  are  initialized  assuming  pertur- 
bation trajectories  will  not  be  required.  If  none  of  the  incremental  orbital  para- 
meters nor  the  initial  time  or  speed  at  departure  are  specified  as  independent 
variables,  the  XIDL,  XRL  and  XRDL  arrays  are  initialized  to  the  initial  state 
for  the  nominal  and  perturbation  {if  applicable)  trajectories  and  a return  to  the 
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calling  subroutine  is  executed.  If  any  one  or  more  of  the  incremental  orbit 
parameters  or  the  initial  time  and/or  speed  at  departure  are  specified  as 
Independent  variables,  then  the  first  and  second  integrals,  £ and  £,  of 
the  Encke  perturbations  are  set  to  zero,  and  the  XRL  and  XRDL  arrays  are 
initialized.  If  no  perturbation  trajectories  are  required,  a return  to  the 
calling  program  is  executed.  Otherwise,  two  partial  derivative  matrices  are 
evaluated  as  follows.  The  state  transition  matrix  for  the  first  (coast)  arc  is 


*<v  v= 


000 1 000  I 1 


where 


SR  SR  SR  SR 

SR”;B=rj":  C=S— ’ D = 7^“  ’ 

o SR  o SR 

o o 


are  obtained  from  subroutine  SAMM.  The  subscript  1 refers  to  the  end  of  the 
first  arc.  If  any  of  the  incremental  orbital  parameters  are  independent  variables, 
then  the  partials  of  the  initial  state  with  respect  to  those  parameters  which  are 
independent  variables  are  evaluated  with  the  equations 


r-77.  ~ h x R ; ...  ; = h x R ; = 0 

SAco  o S A oo  o SAco 


SAO~^xRo;  SA  A * X Ro;  SAft~0, 


SA°  *xRo;  SAi  txRo;  SAi  “ ° * 


SETI 


-<rao  + a:i> 


3B  an  am 

°'5ZT  ° 


S Av 


po 


po 


S Av 


po 


The  counter  NJL  and  the  flag  ITD1  are  set  equal  to  the  number  of  these  four 
variables  specified  as  Independent  variables  and  a return  Is  executed.  If  the 
Initial  time  and/or  speed  are  specified  as  Independent  variables,  then  the  partlals 
of  the  Initial  state  with  respect  to  one  or  both  of  these  variables  are  developed 


SR 

y V 

-1> 

o _ 

— 

St 

\ V 

/ 
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po 
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o 

f _E2. 
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St 
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Sv 
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= 0, 


* — * R / |r  | . 
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po 

dm 
c 
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<mo  * V 

a. 


po  2 

A return  to  the  calling  program  Is  then  executed. 
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SETI  EXTERNAL  VARIABLES  TABLE 


Variable 

' Use 

Common 

Description 

B(30) 

SU 

XMMM 

Array  of  independent  variable  values. 

JN 

S 

HER 

Number  of  spacecraft  orientation  angles 
on  the  next  arc  that  are  included  in  the 
list  of  independent  variables. 

NJ 

SU 

HER 

Counter  of  the  number  of  the  six  space- 
craft parameters  c,  pQ,  a,  0,  6 and 

€ that  are  included  in  the  list  of  inde- 
pendent variables. 

NS 

s 

ILEF 

Number  of  initial  state  related  perturba- 
tion trajectories  required  over  next  arc. 

N4 

SU 

ILEF 

Index  equal  to  4(i— 2)  + 1,  where  i is 
the  next  arc  number. 

AIJ(3, 3) 

u 

SAML1 

Partial  derivative  matrix  of  position  at 
the  end  of  the  first  arc  with  respect  to 
position  at  the  start  of  the  arc. 

A LI 

u 

JERR 

Launch  vehicle  performance  coefficient, 

Y 

Launch  vehicle  performance  coefficient, 

V 

Launch  vehicle  performance  coefficient, 
a3' 

Partial  derivative  matrix  of  position  at 
the  end  of  the  first  arc  with  respect  to 
velocity  at  the  start  of  the  arc. 

AL2 

u 

JERR 

AL3 

u 

JERR 

BIJ(3, 3) 

u 

SAML1 

CHNfLOO) 

SUA 

HIS 

Array  of  values  of  all  variables  avail- 
able as  potential  independent  variables. 
(See  description  of  subroutine  INPUT). 

CU(3, 3) 

u 

SAML1 

Partial  derivative  matrix  of  velocity 
at  the  end  of  the  first  arc  with  respect 
to  position  at  the  start  of  the  arc. 

I 
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SET!  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

CPI  (7, 30) 

S 

JERR 

Matrix  containing  the  partial  derivatives 
of  the  state  vector  (position,  velocity  and 
mass)  with  respect  to  the  independent 
variables  of  the  arc. 

DIJ(3, 3) 

U 

SAM  LI 

Partial  derivative  matrix  of  velocity 
at  the  end  of  the  first  arc  with  respect  to 
velocity  at  the  start  of  the  arc. 

HCR(3) 

SUA 

RSCAL 

Array  used  for  temporary  storage  of 
various  vectors  related  to  initial 
velocity. 

ITD 

s 

VPLLL 

Flag  indicating  whether  lime  of  departure  . 
from  launch  parking  orbit  is  an  independent 
variable. 

= 0 - not  an  independent  variable 
= 1 - is  an  independent  variable 

NJL 

su 

HER 

Number  of  independent  parameters  which 
are  functions  of  the  initial  position  or 
velocity. 

NQN 

su 

I 

ILEF 

Number  of  equations  numerically  inte- 
grated on  each  trajectory,  sum  of  first 
and  second  order  equations. 

NSL 

u 

HER 

Number  of  independent  variables. 

NS1 

s 

ILEF 

NS  + 1. 

NTP 

s 

HER 

Counter  incremented  along  the  trajectory 
and  equal  to  the  current  arc  rumber. 

PYI(7, 7) 

s 

JHW 

Partial  derivatives  of  the  current  state 
with  respect  to  the  state  at  the  start  of 
the  arc. 

RLP 

u 

RSCAL 

Radius  of  the  circular  launch  p irking 
orbit,  in  ER. 
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SETI  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

TP1 

S 

HENRY 

End  time  of  the  current  trajectory  arc. 

XIL(  80) 

S 

AMI 

Second  integral  of  the  Encke  perturba- 
tions on  the  nominal  and  perturbed 
trajectories. 

XMU 

SU 

SAM  LI 

Gravitational  constant  of  the  reference 
body. 

XRL(6,  20) 

S 

LEFT 

Array  of  spacecraft  position  vectors 
relative  to  the  inference  body  on  nominal 
and  portui'bed  trajectories.  Contains 
Cartesian  coordinates  plus  the  magnitude, 
square  and  cube  of  distance. 

CHNS{100) 

s 

HIS 

Same  as  CHN,  with  units  changed  for 
printout  purposes. 

ISOL 

s 

MEL 

Flag  indicating  whether  thrust  is  on  or 
off  on  current  arc. 

= 1 - thrust  on 
= 2 - thrust  off 

ITD1 

s 

VPLLL 

Flag  indicating  whether  speed  at  departure 
from  launch  parking  orbit  is  an  independent 
variable. 

= 0 - not  an  independent  variable 
^ 0 - is  an  independent  variable 

IVAR(IOO) 

u 

HER 

Array  of  indexes  correlating  the 
independent  variable  array  elements 
to  associated  elements  in  *he  CHN 
array. 

NCT1 

i 

i 

! 

! 



s 

HER 

Index  defining  the  relative  location  of 
the  arc  thrust/coast  trigger  in  the 
TBIN  array. 

i. 


i 


S ETI-7 


NEQL  S ILEF  Number  of  trajectories  being  integrated 

simultaneously,  nominal  plus  perturbed. 

NEQN  S AIvIT  Total  number  of  equations  being  inte- 

grated simultaneously,  including  first 
and  second  order  on  both  nominal  and 
perturbed  trajectories. 

NOMT  U NOMLL  Nominal  trajectory  flag. 

= 0 - nominal  and  perturbed  trajectories 
are  being  integrated  rimultaneously. 

^ 0 - trial  trajectory  only  is  being 
integrated. 

NSL1  SU  HER  Counter,  equal  to  NEQL. 

NTPS  U HER  Number  of  trajectory  arcs  minus  1. 

RHBR  SU  ALAN  Factor  for  converting  between  time  and 

universal  anomaly  derivatives, 

/3  (=Vm/ r). 

TBET  S ALAN  Current  time,  in  hours  from  departure 

of  the  launch  parking  orbit. 

TBIN(122)  U JERR  Ari’ay  of  trajectory  arc  information. 

(See  description  in  subroutine  INPUT). 

VPOO  SU  VPLLL  Speed  at  departure  of  the  launch  parking 

orbit,  v 

po 

XIDL(80)  S AMI  First  integral  of  the  Encke  perturbations 

on  the  nominal  and  perturbed  trajectories. 

XRDL(6,20)  SU  LEFT  Array  of  spacecraft  velocity  vectors 

relative  to  the  reference  body  on  nominal 
and  perturbed  trajectories.  Contains 
Cartesian  coordinates  plus  the  magni- 
tude, square  and  cube  of  the  distance. 


L 
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SETI  EXTERNAL  VARIABLES  TABLE  (coni) 


Variable 

Use 

Common 

Description 

XSQQ(12) 

U 

HENRY 

Array  of  gravitational  constants  of  the 
sun,  moon  and  planets. 

XVAR  (30) 

U 

HIS 

Array  of  perturbation  step  sizes  of  the 
independent  variables,  used  to  compute 
partial  derivatives. 

IFTRC, 

SU 

HER 

First  trajectory  flag.  A value  of  1 
indicates  the  current  trajectory  is  the 
fii'st  trajectory  of  the  case. 

NOP65 

U 

ILEF 

Flag  indicating  whether  the  program  is 
operating  in  the  constrained  or  uncon- 
strained mode.  Same  as  the  program 
input  NOPT(G5). 

RDPML(3) 

u 

RSCAL 

Unit  vector  along  initial  geocentric 
velocity. 

R PI1  AT  (3) 

SUA 

RSCAL 

Initial  geocentric  position  vector. 

IREFNO 

u 

INTEG 

Identification  number  of  the  current 
reference  body. 
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Name: 


SIMEQ 


Calling  Argument: 
Referenced  Sub-progrnms: 
Referenced  Commons: 

Entry  Points: 

Referencing  Sib-programs: 


C,  A,  IN,  SOLUTN 

None 

None 

None 

MINMX3 


Discussion:  SIMEQ  solves  a set  of  simultaneous  linear  equations  of  the  form 

CA  = B 

for  the  n-dlmenslonal  column  matrix  A where  C is  a known  square  nxn 
matrix  and  B is  a known  n~dlmenslonal  column  matrix, 

SIMEQ  employs  the  Gauss’  method  of  elimination  to  solve  a ret  of  simul- 
taneous linear  equations.  Basically,  this  method  in  olves  the  solution  of  one  of 
the  n equations  for  one  of  the  unknown  elements  of  A in  terms  of  the  other 
elements  of  A,  substituting  this  result  into  the  remaining  equations  and  deriving 
the  new  coefficients  for  the  reduced  set  of  equations  of  order  (n-1).  By  succes- 
sively repeating  this  procedure,  one  eventually  obtains  a single  equation  in  one 
unknown.  The  solution  of  this  equation  fields  one  element  of  A in  terms  of  the 
known  coefficients  of  B and  C.  Using  this  solution  and  proceeding  backwards 
successively  through  the  equations  of  two  unknowns,  three  unknowns,  etc.,  one 
obtains  the  unique  solution  vector  A.  A detailed  description  of  this  method  is 
given  in  the  reference. 

Upon  successfully  solving  for  the  A matrix,  the  argument  TN  is 
set  to  . TRUE. , and  a return  to  the  calling  routine  is  executed.  This  flag  is  set 
to  .FALSE,  if  it  is  found  that  all  of  the  equations  are  not  linearly  independent. 

The  coding  of  SIMEQ  assumes  that  the  B array  is  stored  immediately 
behind  the  C matrix  such  that,  in  effect,  C is  dimensioned  nx(n-;l),  and  B 


is  addressed  as  the  (n+l)th  column  of  C.  Both  B and  C are  destroyed  in  the 
computations.  Note  that  the  inverse  of  C is  not  explicitly  formed. 

Reference: 

Pipes,  Louis  A.  and  Shahen  A.  Hovanessian,  Matrix  Computer  Methods  in 
Engineering,  John  Wiley  & Sons,  Inc.,  New  York,  1969,  pp.  15,  16. 


SIMEQ  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

A (IN) 

SUX 

Array  containing  the  solution  vector  A. 

C(IN,  IN+1) 

UX 

Array  containing  the  matrix  C in  the 
first  IN  columns  and  the  matrix  B in 
the  (IN+l)th  column. 

IN 

UX 

Order  n of  the  problem,  equal  to  the 
number  of  simultaneous  equations. 

SOLLTN 

SX 

Log' cal  flag  indicating  whether  the 
solution  matrix  A was  successfully 
obtained. 

.T^UE.  - solution  successfully  obtained 
.FALSE.  - solution  not  obtained  because 
equations  are  not  linearly 
independent.  j 
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SOLENG 


C:  ’ . g Arguments:  None 

Referenced  Sub-programs:  AMAL,  FINDXB,  MTMT,  MTVT 


Referenced  Commons: 


ALAN,  AMI,  CONVRT,  ENG,  HENRY,  HER,  ILEF, 
INTEG,  JERR,  LEFT,  MEL 


Entry  Points:  None 

Referencing  Sub-programs:  DERIV 


Discussion:  Subroutine  SOLENG  acts  as  an  extension  to  subroutine  DERIV  by 

computing  the  perturbations  due  to  thrust  and  sola’'  pressure  and  adding  these 

perturbations  to  the  Encke  terms  in  the  array  D2XIL.  Upon  entry,  a check  is 

made  to  determine  if  the  curi'ent  arc  is  a coast  arc  and  the  product  k a,  where 

s 

k is  the  solar  constant  and  a is  the  total  spacecraft  area  including  solar  arrays, 
s 

is  zero.  If  so,  no  further  computations  are  made,  and  a return  to  DERIV  is  exe- 
cuted. Otherwise,  the  computation  of  thrust  perturbations  continues. 

All  remaining  computation  in  this  subroutine  are  performed  in  a loop 
which  is  executed  a total  of  NEQL  times,  where  NEQL  is  the  total  number  of  tra- 
jectories that  are  currently  being  integrated  simultaneously.  That  is,  the  per- 
turbations are  computed  first  for  the  nominal  or  trial  trajectory  and  then  for  each 
perturbation  trajectory,  if  any.  The  subscript  I in  the  equations  to  follow  de- 
notes the  variable  evaluated  for  the  ith  trajectory,  where  1=1,  2,  . ..,  NEQL. 

The  unit  vectors  e^  along  the  radius  vector  Rg  of  the  spacecraft  relative 
to  the  sun 

e = R 7 |R  J 
r si  1 si1 

and  n along  the  normal  to  the  plane  of  the  arrays  in  the  body  fixed  coordinate 
system 

n = cos  a.cos^I+cosasinj8.J  + sina.K 


SOLENG-l 


are  evaluated.  If  the  unconstrained  mode  is  indicated  (NOP65  = l),  the  matrix 
A which  rotates  a vector  expressed  in  the  inertial  coordinate  system  to  ihe 
body  coordinate  system  is  evaluated  as  follows: 


A » 


- cC.cC.-sC.s4. CP.) 

-(s  C.c£.  + cC.s£.cp.) 
t i 11  1 

(sCjSP.) 


(C  C.  S 4.  +S  C.  C 4 . c P.) 

'll  l l l 

(sCjS4j-cC.c4.CP.) 

-(c  4 J S l^j) 


(sC.SP.)-l 
l l 

(cf.SU.) 

I l 

(CPj)  - 


where  c and  s denote  cosine  and  sine,  respectively,  and  C.  F,  4 are  the 
spacecraft  orientation  angles.  The  assignment  of  A is  not  performed  for  the 
perturbation  trajectories  unless  one  or  more  of  the  three  angles  is  different  from 
those  of  the  (i-l)th  trajectory.  If  the  constrained  mode  is  flagged,  the  transforma- 
mation  matrix  is  evaluated  in  a different  manner.  First  the  unit  constraint  vector 
Xj,  along  whieh  the  body  fixed  vector 

s = cos  6 . cos  e . I + cos  6 . sin  e . J + sin  6 . K 

i i i i i 


is  to  be  directed,  is  evaluated  by  calling  subroutine  FINDXB.  The  unit  vector 


m •=  (s  x x.)/  |sxx.  [ 

is  evaluated  and  used  to  obtain  the  transformation  matrix  M(m,  a)  by  calling 

subroutine  AMAL,  where  a is  the  angle  between  s and  Xj.  If  the  input  value 

of  lb  for  the  current  arc  is  input  zero,  then  the  transformation  matrix 
max 

M(x.,  0.)  is  evaluated  in  AMAL,  and  the  desired  matrix  A is  computed 

A = M(Xj , 6.)  M(m,  O'). 

If  0 for  the  current  arc  is  non-zero,  then  the  following  operations  are  per- 
max 

formed 

q = MfXj,  0 j)  m 
Sj=  M(q,  0.)  x( 


* 
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and  A is  foi'med 


A - MfSj,  0.)  M(q,  M(x{,  0.)  M(m,  a) 

where  each  transformation  matrix  M is  obtained  by  calling  subroutine  AMAL 
with  the  appropriate  calling  arguments.  The  vector  q is  simply  m rotated 
about  x^  through  the  angle  0 . and  s^  is  x,  rotated  about  q through  the 
angle  ii..  s^  represents  the  unit  vector  s expressed  in  inertial  coordinates. 
Since  the  thrust  vector  is  assumed  to  lie  along  the  body  fixed  axis  I,  the  thrust 
vector,  in  inertial  coordinates,  becomes 


e = A 0 
1 0 


and  the  array  normal  vector,  in  inertial  coordinates,  is 

nj  = An. 

The  next  step  is  to  evaluate  the  magnitude  of  the  thrust  and  solar  pressure 
perturbations  and  apply  the  accelerations  in  the  correct  direction.  If  the  current 
arc  is  a coast  arc,  the  logic  proceeds  to  the  computation  of  solar  pressure.  For 
thrust  arcs  the  following  computations  are  made.  The  density  of  photons  imping- 


ing on  the  arrays  is 


d = (e  • n.)/(R  * R ) 
r I s s 


where  R is  expressed  in  AU,  and  the  power  factor  y is  evaluated 

n 

r*  j/4 
y = d ) a.dJ/ 

j=0  } 

where  n is  the  number  of  terms  of  the  series  (specified  by  input)  and  a^, 
j = l, 2, . . . ,n,  are  the  input  coefficients.  For  nuclear  electric  propulsion 
systems  (specified  through  the  flag  NOPT(66)),  y is  set  to  1 and  the  above 
computations  are  bypassed.  If  the  flag  NOPT(68)  is  non-zero,  the  dot  product 
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e^  * lij  is  replaced  with  the  constant  1,  corresponding  to  the  ease  in  which  the 
arrays  are  always  oriented  normal  to  the  sun  line.  The  power  available  for  pro- 


pulsive purposes  is  evaluated 


P = P . y -p  . 
a oi  xi 


where  pq1  is  the  reference  power  at  1 AU  and  p is  the  housekeeping  power 
for  the  current  arc.  p is  set  to  zero  if  the  computed  value  is  negative.  The 

cl 

propulsion  system  efficiency  is 


2 ,2 

+d 


where  b and  d are  input  efficiency  coefficients  and  c.  is  the  jet  exhaust 

speed.  (Note  that  d is  distinct  from  the  same  symbol  used  above  for  photon 

density).  If  the  unit  thruster  power  Ap  in  input  zero,  the  power  used  by  the 

propulsion  system  is  equated  to  the  power  available.  Otherwise,  the  number 

of  operating  thrusters  n^  is  set  equal  to  the  integral  portion  of  the  ratio 

p /Ap,  and  the  power  used  ir 
a 

Pr  = ntAp* 


The  thrust  magnitude  is  evaluated  in  newtons 


f=2pr  r)/c{, 


the  derivative  of  mass  with  respect  to  the  universal  anomaly  /8  is 

m,  = -3600f/(j3  Cj) 

2 2 

and  the  thrust  acceleration  magnitude,  in  units  of  ER/hr  or  AU/hr 

a =k(f/m) 


where  k is  the  conversion  constant.  The  Encke  terms  are  then  modified  to 
Include  the  thrust  terms 


I 


V 


I 


I 

I 

] 

3 


A 


4 


■--t  4a  o . 
P t 


If  the  solar  pressure  term  k a is  zero,  the  logic  transfers  to  the  end 

B 

of  the  loop  of  computations  for  the  current  trajectory.  Otherwise,  the  accelera- 
tion due  to  solar  pressure  is  computed 


A = 
sp 


kk  a 
s 

mr 


(e  *nt)[2(l-c  )(e  *nt)n+c  e ] 
' r I ' a r I I a r 


where  c is  the  coefficient  of  absorption. . A is  then  added  to  £ to  obtain  the 
a sp 

total  Eneke  perturbations. 


f 


SOLENG  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

A 

U 

JERR 

Area  of  the  spacecraft,  including  the 
solar  arrays. 

AO(10) 

U 

JERR 

Coefficients, a^,  of  the  solar  power  law. 

BL 

U 

JERR 

Efficiency  law  coefficient,  b. 

CA 

U 

JERR 

Photon  absorption  coefficient,  c , 
equal  to  the  ratio  of  photons  abso'rbed 
by  the  panels  to  the  total  number  inci- 
dent. 

CL(20) 

UE 

JERR 

(VBLOC) 

Array  of  jet  exhaust  speeds  for  the 
nominal  and  perturbation  trajectories, 

V 

Body  fixed  constraint  vector,  s. 

ER(3) 

SUA 

JERR 

ET(3) 

SU 

JERR 

Unit  vector  in  the  direction  of  thrust 
in  Inertial  coordinates. 

PW(20) 

i 

UE 

JERR 

(VBLOC) 

Array  of  reference  powers  for  the 
nominal  and  perturbation  trajectories, 

Poi* 
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SOLENG  EXTERNAL  VARIABLES  TABLE  (cent) 


Variable 

Use 

Common 

Description 

QB(3) 

SUA 

Unit  vector,  q. 

SB  (3) 

SUA 

Unit  vector,  m . 

SI  (3) 

SUA 

Unit  vector,  s . 

AAM(3,  3) 

SUA 

Transformation  matrix  A. 

AMS(3,  3) 

UA 

Transformation  matrix  M(m,  c). 

AXT(3,  3) 

UA 

Matrix  product  M(s  , 0 ) M(q,  >ji) 
M(x^,  0). 

CSG 

SUA 

cos  a. 

CSV  (201 

UA 

ENG 

cos  0 j or  cos  V j . 

CSX  (20) 

UA 

ENG 

cos  or  cos  • 

CSZ(20) 

UA 

ENG 

cos  0 . or  cos  Cj* 

DSQ 

U 

JERR 

2 

Efficiency  1 nv  coefficient,  d , in 
m2/sec2. 

ETA 

SU 

JERR 

Efficiency  factor,  r\. 

ETV  (3) 

U 

JERR 

Unit  thrust  vector  in  body  fixed 
coordinates. 

NQN 

u 

1LEF 

Numb-  aaiions  Integrated 

simu.'v...  o/.  .y  on  each  trajectory, 
indue  * .tt  a'-  ■ econd  order. 

SNV(20) 

UA 

ENG 

sin  t!>.  o"  f > ! 

SNX(20) 

UA 

ENG 

sin  6,  or  r 

i l 

SNZ(20) 

UA 

ENG 

sin  0j  or  sin  C 

XIL(80) 

U 

AMI 

Second  Integral  of  the  Enckc  pertur- 
bations on  the  nominal  and  perturbed 
tralectorles. 

SOLENG  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

XKS 

U 

JERR 

Solar  pressure,  kg,  acting  on  a flat 
plate  at  a distance  of  1 AU  from  the 
sun  assuming  all  photons  are  absorbed, 
In  newtons/m2. 

AXT1(3,3) 

UA 

Transformation  matrix  M(x^,  0 j). 

AXT2{3, 3) 

UA 

Transformation  matrix  M(q,  ^). 

AXT3(3, 3) 

Vj  A 

Transformation  matrix  M(s  , 0^). 

AXT4(3, 3) 

UA 

Matrix  product  M(q,  M(Xj,  0^. 

CSAL(20) 

U 

ENG 

cos  . 

CSDL(20) 

u 

ENG 

cos  6 , 

CSET(20) 

u 

ENG 

cos  e . 

DELP 

u 

JERR 

Unit  thruster  reference  power,  Ap. 

ISOL 

u 

MEL 

Arc  thrust/coast  flag. 

=1  - thrust  arc 
=2  - coast  arc 

NCT1 

u 

HER 

Index  of  $ for  current  arc  in 

max 

TBIN  array. 

NEQL 

u 

ILEF 

Number  of  trajectories  currently 
being  integrated  simultaneously. 

NMAX 

u 

HER 

Number  of  coefficients  In  the  solar 
power  law  (=n+l). 

NOPT(72) 

u 

INTEG 

Array  of  program  option  flags. 

j 

RHBR 

u 

ALAN 

Factor  for  converting  between  time  ' 

and  8 derivatives  (=$).  j 
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SOLENG  EXTERNAL  VARIABLES  TABLE  (cont) 


sin  a. . 


sin  6 . 
sin  c | . 
sin  a. 


Variable 

Use 

Common 

SNAL(20) 

U 

ENG 

SNDL(20) 

IJ 

ENG 

SNET(20) 

u 

ENG 

SSIG 

SUA 

TBIN(122) 

U 

JERE 

VCOL 

(72,20) 

- 

LEFT 

CSBET 

(20) 

u 

ENG 

D2XIL 

(80) 

su 

AMI 

NOP65 

u 

ILEF 

SNBET 

(20) 

u 

ENG 

XDIST 

u 

HENRY 

APSCON 

u 

CONVR1 

IREFNO 

u 

INTEG 

Description 


Array  of  trajectory  arc  information. 
(Sec  description  in  subroutine  INPUT). 

Array  of  spacecraft  position  vectors 
relative  to  all  perturbing  bodies. 
Includes  both  nomina’  and  perturbed 
trajectories. 


cos  j8 . 


Array  of  Encke  perturbations,  £,  for 
nominal  and  perturbed  trajectories. 

Constraint  mode  'ndicator. 

=1  - unconstrained  mode 

=2  - constrained  mode,  ^max  = 0 

-3  - constrained  mode,  ^max  ? 0. 


sin  5. . 


Conversion  factor,  equal  to  the  number 
of  ER  in  1 AU. 

Factor  for  converting  units  of  accele- 
ration from  m/sec2  to  ER/hr2  or 
AU/hr2. 

Identification  number  of  current 
reference  body. 


*141  tfJSMJAOft  - 40  i S V 3*4  S 0 - US  HVM3  nOliOiA*  41/Cf/lt 
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Name:  SUBFG 

Calling  Argument:  THETA2,  IOPT 

Referenced  Sub-programs:  None 

Referenced  Commons:  THAD 


Entry  Points;  None 

Referencing  Sub-programs:  SAMM,  TBDP 


Discussion:  This  subroutine  evaluates  the  functions  G^(0)  required  for  the  solution 
of  the  two-body  Kepler  problem.  The  range  of  the  subscript  i depends  on  the  argu- 
ment IOPT.  IOPT=l  denotes  that  only  the  trajectory  variables  are  required,  in 
which  case  l ranges  from  0 to  3.  IOPT-2  indicates  that  partial  derivatives  are 
desired  which  requires  G^  for  l = 0-5.  The  parameter  0 is  related  to  the  uni- 
versal anomaly  0 through  the  formula 


e2  - 02/a 


a» 


* here  a is  the  semi-major  axis.  Thus,  for  elliptic  orbits,  0 represents  the 
change  in  eccentric  anomaly  from  the  reference  position.  Denoting 

„2 

" 0 (2) 


then  the  functions  G^  are  defined 


i*  e y a — 

l - o (2j  + 1)1 


G = p F . 
I R l 


(3) 

(4) 


Inspection  of  equation  (3)  will  verify  that  the 
formula 


F 


l 


1 

l! 


+ aF 


1+2 


satisfy  the  following  recursion 


(5) 


/ 


I 


t 
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Thus  the  series  expression  (3)  need  only  be  solved  for  the  two  highest  order 
terms  after  which  the  lower  order  terms  are  obtained  with  (5).  The  number 
of  terms  required  In  (3)  to  maintain  the  desired  accuracy  is  dependent  upon  the 
magnitude  of  a.  It  has  been  determined  that  ten  terms  yield  16  digits  of  accuracy 
for  |a|  si.  For  larger  values  of  |a  | , reduction  formulae  exist  which  permit  the 
accurate  computation  of  the  F^  with  10  terms  of  the  series.  The  procedure  is  to 
divide  the  input  a by  4 a number  of  times  n until  the  result  Is  less  than  1. 
Denote  this  result  a\  then  the  equations  for  F^a*)  In  terms  of  F^a')  are, 
for  IOPT=l 


F3(4a')-[F2(a»)  + F0(«')  F3(a»)]/4 
F2(4a')  = F1(a')2/2 


(6) 


or,  for  IOPT=2, 

Fg(4a')  = |V4(a')  + F2(a’)/6  + FQ(a')  Fg(a')]/l6 
F4(4a')  = [F3(a')  + F^a')  F3<a')]/8. 

The  lower  order  terms  In  either  case  are  obtained  from  the  recursion  formula  (5). 
The  equations  (6)  or  (7)  are  cycled  n times  where  the  a'  of  each  cycle  Is  the 
4a'  of  the  preceding  cycle.  The  desired  Junctions  are  then  obtained  from  (4). 
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. SliBFG  EXTERNAL  VAR  TAPI ,ES  TABLE 


I 

Variable 

Use 

1 Common 

Description 

1 

I 

FO 

SU 

THAD 

V 

1 

FI 

SU 

THAD 

Fr 

I 

F2 

SU 

THAD 

F2* 

7f 

F3 

SU 

THAD 

F3* 

ii 

F4 

SU 

THAD 

F4* 

'll 

F5 

SU 

THAD 

Fc. 

* * 

if 

G1 

s 

THAD 

5 

°r 

I! 

G2 

s 

THAD 

G2‘ 

* 

.i 

G3 

s 

THAD 

G . 

- * 

G4 

s 

THAD 

3 

G.  • 

ii 

G5 

s 

THAD 

4 

<V 

i! 
' ) 

GGO 

S 

THAD 

ga. 

f j 

IOPT 

ux 

0 

Flag  Indicating  whether  trajectory  only 

; ) 
i ► 

\ i 

;l 

: i 

BETAMX 

u 

THAD 

or  trajectory  and  partial  derivative 
variables  arc  needed. 

1 - trajectory  only 

2 - trajectory  and  partlals 

Universal  anomaly,  0. 

n 

i i 

THETA2 

sux 

e2. 

a 

a 


7 


k 


SUBFG-3 


tmt  f*W  j 


0 * I . 00 

tnim  ft  i 
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Name: 


TBDP 


Calling  Arguments: 
Referenced  Sub-programs : 
Referenced  Commons: 
Entry  Points: 

Referencing  Sub-programs: 


None 

SUBFG 

ALAN,  AMI,  HENRY,  LEON,  STEVE,  TBPR,  THAD 
None 

CONTRL,  DERIV 


Discussion:  This  subroutine  performs  selected  two-body  computations  using  the 
series  solutions  of  universal  variable  functions  G.,  i = 0, 1,2,3,  which  are  evaluated 
in  SUBFG.  When  called  from  CONTRL,  TBDP  evaluates  the  increment  in  the  uni- 
versal anomaly  corresponding  to  a specified  time  interval  referenced  from  the  last 
rectification  point.  This  essentially  involves  the  iterative  solution  of  Keplers  pro- 
blem as  follows.  At  the  top  of  the  loop,  define 

a=02/a 

where  /3  is  the  current  value  of  the  universal  anomaly  and  a is  the  semi-major 
axis.  The  functions  G.  are  then  evaluated  by  calling  SUBFG  and  used  in  the 
equations 

0 = ro  G1  + °3  + doCV^i  ‘ ^ 

0»=r  G +G  +d  G Jju. 
o o 2 o 1 ^ 

where  r is  the  distance  at  the  last  rectification  point,  d =R  **R  , a is  the 
o o o o ^ 

gravitational  constant  and  At  is  the  specified  time  Interval.  The  change  in  universal 
anomaly  6/3  is  evaluated 

6/3=  0/0' 

and  the  current  value  of  $ is  updated 

0=  0- 60 . 


.c’A<  O. 


f«K  NOT  FILMED 
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-14 

The  magnitude  of  60//J  is  checked  and,  if  less  than  10  , convergence  is 

assumed.  The  incremental  universal  anomaly  is  then  defined 

Aj8=0-/J 

S 

where  j8  is  the  value  of  /3  on  entry  to  TBDP,  and  /3  is  set  to  /3  . Thus 
s S 

the  Aj8  corresponds  to  the  increment  in  /?  required  to  proceed  backwards 
from  the  incoming  p'unt  on  the  conic  to  the  point  corresponding  to  the  desired 
time.  If  convergence  was  not  achieved,  i.e.,  1 5 /?/£  | > 10  14,  an  iteration 
counter  is  checked  and,  if  less  than  20,  the  logic  proceeds  to  the  top  of  the 
loop  to  commence  another  iteration.  If  convergence  is  not  achieved  in  20 
iterations,  a warning  message  is  printed,  and  the  universal  anomaly  increment 
is  defined  using  the  current  value  of  /?  prior  to  exiting. 

When  TBDP  is  called  from  DERIV  (ITB=0),  the  principal  objective  is  to 
evaluate  the  two-body  position  and  velocity  vectors,  R and  R,  for  a given  value 
of  j8.  After  forming  a and  the  G.  as  above,  the  time  and  radial  distance  from 
the  reference  body  at  the  given  value  of  /9  are  evaluated 

t = to  + (roVVdoG2A/i‘,/'^ 

r = r G +G  +d  G „/Vm 
oo  2 o 1 

where  t is  the  time  at  the  last  rectification  point.  The  auxiliary  functions  f, 

• ° . 

g,  f , and  g are  formed 

f=l-VV  S = roGl/7ii  + doG2/M 
f = - ^Gj/^r;  g = 1 - Gg/r 

which  lead  to  the  familiar  equations  for  R and  R 

R = f R +gR 
o o 

R = f R +g  R , 
o o 
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I 
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where  R and  R are  the  position  and  velocity,  respectively,  at  the  last 
o o 

rectification  point.  Prior  to  exiting,  the  change  in  eccentric  anomaly  since  the 
last  rectification  point  is  evaluated 

0=  E-E  = </a. 
o 

Messages  and  Printout:  If  convergence  to  the  solution  of  the  Kepler  problem  is 

not  achieved  within  20  iterations,  the  time  t,  the  rectification  time  t , the 

o 

function  i/ji  At,  the  change  in  universal  anomaly  6/8,  and  the  current  value  of 
0 are  printed  as  follows 

TOO  MANY  ITERATIONS  IN  SUBROUTINE  TBDP. 


Each  value  is  printed  with  a field  format  of  D20.14. 


TBDP  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

T 

SU 

ALAN 

Current  time,  t. 

il 

U 

THAD 

Gr 

G2 

U 

THAD 

°2* 

G3 

U 

THAD 

O 

co 

• 

TI 

U 

STEVE 

Time  t at  the  last  rectification  point, 
o 

Dll 

SU 

AMI 

When  called  from  CONTPL,  DTI  on 
entry  contains  tne  specif  t id  time  interval 
in  hours  from  the  .^st  rectification  point. 
On  exit,  it  contains  d.3. 

GGO 

u 

THAD 

<V 

CO 

I 
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TBDP  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

ITB 

U 

TBPR 

Flag  indication  the  type  of  solution 
desired. 

0 - position  and  velocity,  given  /3 

1 - A, 8 given  At. 

XRI(6) 

U 

STEVE 

Position  vector  RQ  relative  to  the 
reference  body,  evaluated  at  the  last 
rectification  point. 

XR0(6) 

S 

LEON 

Two  body  position  vector  R at 
current  time. 

XSQ 

U 

STEVE 

Gravitational  constant  of  reference 

body. 

BETA 

SU 

AMI 

Universal  anomaly  /3. 

01AD 

U 

STEVE 

Inverse  of  the  semi-major  axis,  l/a. 

THET 

S 

HENRY 

Change  in  eccentric  anomaly, 

6 = E - E . 
o 

ALPHA 

SUA 

62  = 02/a. 

RDOTD 

U 

STEVE 

d = R • R . 

O O 0 

SQTMU 

U 

STEVE 

V/T. 

TMPDP 

SU 

LEON 

s2. 

TM2DP 

U 

STEVE 

d A/ju. 
0 

XRIDT(6) 

U 

STEVE 

• 

Velocity  vector  R relative  to  the 
reference  body,  evaluated  at  the  last 
rectification  point. 

XRODT(6) 

s 

LEON 

« 

Two-body  velocity  vector  R at 
current  time. 

BETAM1 

s 

THAD 

L 
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Name: 


TRAJL 


J 

I 


! j 

a 

ii 


Calling  Arguments: 


LERROR,  NZZ 


Referenced  Sub-programs:  AMAINT,  CONTRL,  DERIV,  DETDT,  INIT,  MIIP1, 

RECT,  REMTIM,  SUMMRY 


Referenced  C om m ons : 


ALAN,  AMI,  HENRY,  HER,  ILEF,  INTEG,  JERR, 
LEON,  MINSEC,  NOMLL,  STEVE 


Entry  Points;  None 

Referencing  Sub-programs:  FNPRNT,  MINMX3 


PlBcuBSlon:  Subroutine  TRAJL  governs  the  Integration  of  either  a single  trial  tra- 
jectory or  of  a nominal  and  perturbation  trajectories  simultaneously.  The  calling 
argument  NZZ  equal  to  one  Indicates  a trial  trajectory  Is  to  be  generated,  while 
NZZ  equal  to  zero  denotes  a nominal  with  perturbations  are  to  be  run.  The  logical 
flag  error  condition  Indicator  LERROR  is  Initialized  to  .FALSE,  on  entry  and  Is 
not  subsequently  modified.  Therefore,  TRAJL  does  not  return  any  error  condi- 
tions to  the  calling  routines. 

Upon  entry,  DELT  Is  set  to  an  ai’bitrarily  large  value,  NOMT  Is  equated 
to  NZZ,  and  the  time-out  flag  ITV  Is  set  to  1 If  sufficient  time  remains  to  con- 
tinue iteration  or  to  2 if  the  estimated  time  for  the  job  is  about  to  run  out.  The 
time  remaining  for  the  job,  In  CPU  and  I/O  seconds,  Is  obtained  with  a call  to 
subroutine  REMTIM.  The  CPU  time  remaining  In  seconds  must  exceed  the  Input 
Integer  ITF  for  a trial  trajectory  or  twice  ITF  for  a nominal  and  perturbation  tra- 
jectories, and  the  I/O  time  remaining  In  seconds  must  exceed  half  of  ITF.  Other- 
wise, ITV  is  set  to  2.  If  ITV  Is  equal  to  2,  the  flag  NOPT(60)  Is  set  to  1 to 
assure  that  the  final  trajectory  Is  printed  and  NOMT  Is  set  to  1 so  that  no  per- 
turbation trajectories  will  be  Integrated.  A message  Is  also  printed  to  Indicate 
that  time  has  run  out. 


After  performing  trajectory  Initialization  by  calling  INIT,  a trajectory 
rectification  Is  performed  in  subroutine  RECT  to  define  the  two  body  reference 


! 


HtfjCJJ:* 
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/ 


523 


TRAJL- 


trajectory  from  which  all  Encke  perturbations  are  measured  and  subroutine  DERIV 
Is  called  to  define  the  derivatives  relative  to  the  new  reference  trajectory.  If  the 
current  time  t Is  zero  and  NOPT(60)  Is  non-zero,  the  initial  trajectory  point  Is 
printed  In  subroutine  MIIP1.  If  the  time  Is  equal  to  an  arc  end  time  on  a nominal 


trajectory,  and  the  arc  end  time  Is  an  Independent  variable,  then  the  partlals  of 
the  velocity  and  mass  with  respect  to  that  end  time  are  evaluated  analytically  and 


stored  In  the  array  CPI.  The  equations  are 


9m 


where  the  prime  indicates  derivatives  with  respect  to  /3  and  the  subscript  k 
denotes  evaluation  on  the  reference  two-body  trajectory. 

The  basic  point -by-point  integration  loop  Is  then  entered.  The  Integration 
Interval  Is  defined  by  calling  DETDT.  If  the  Interval  is  different  from  that  of  the 
last  Integration  step,  the  logic  transfers  to  the  rectification  logic  described  above. 
Otherwise,  a single  Integration  step  Is  taken  by  calling  AMAINT.  Subroutine 
CONTRL  is  then  called  to  determine  if  any  remarkable  roints  or  conditions 
occurred  in  the  Interval.  The  flag  ITRIG  returned  from  CONTRL  defines  the 
appropriate  action  to  be  taken  in  TRAJL.  If  ITRIG  equals  1,  a trajectory  rectifi- 
cation is  required,  and  a transfer  to  the  call  of  RECT  is  effected.  A value  of  2 
for  ITRIG  indicates  that  no  special  condition  was  encountered,  so  another  step  is 
Integrated  after  determining  the  Integration  interval,  and  so  on.  A value  of  3 for 
ITRIG  means  that  the  end  of  the  trajectory  was  encountered.  In  this  case,  If  ITV 
is  1,  a return  to  the  calling  routine  is  executed.  However,  if  ITV  is  2,  the  case 
summary  page  Is  printed  by  calling  SUMMRY,  and  execution  of  the  program  is 
terminated. 


* 


I 

I 

Messages  and  Printout:  If  the  time-out  flag  ITV  Is  2,  the  following  message  Is 
| printed: 

THIS  CASE  HAS  TIMED  OUT. 

“*  If  NOPT(60)  Is  non-zero,  the  following  heading  Is  printed  at  the  top  of  the  trajectory 

H summary: 

«** 

FINAL  TRAJECTORY 

is 

*!  TRAJECTORY  ARC  DATA 


TRAJL  EXTERNAL  VARIABLES  TABLU 


* * 

Variable 

Use 

Common 

Description 

» f 

* i 

-»  * 

T 

U 

ALAN 

Current  time,  t. 

If 

10 

U 

INTEG 

Logical  unit  of  standard  program 

printout. 

i * 

t | 

CPI  (7, 30) 

SU 

JERR 

Matrix  of  partlals  of  state  with  respect 

to  the  Independent  variables. 

* f 

- * 

DTI 

S 

AMI 

Current  Integration  Interval. 

TT 

ITF 

U 

MINSEC 

Input  Integral  number  of  seconds  that 

. f 

* t 

« * 

must  remain  at  the  start  of  a trial  tra- 

jectory to  continue  Iteration. 

| 

* * 

NJJ 

U 

ILEF 

Index  of  the  second  subscript  of  CPI  de- 
fining where  to  store  the  partlals  with 

i f 
i ' 

respect  to  arc  end  time. 

NZZ 

UX 

Flag  defining  whether  perturbations 

trajectories  are  to  oe  integrated. 

** 

0 - nominal  and  perturbation  trajectories 

I 

are  required 

1 - trial  trajectory  only  Is  required. 

1 

XID(80) 

U 

AMI 

Second  Integrals  of  the  Eneke  perturbations. 

I 
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TRAJL  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

XRO(6) 

U 

LEON 

Position  vector  R.  at  the  current  time 
on  the  two  body  reference  trajectory. 

XSQ 

U 

STEVE 

Gravitational  constant  n of  the  reference 
body. 

DELT 

u 

STEVE 

Standard  Integration  interval. 

D2XI(80) 

u 

AMI 

Encke  perturbations. 

IPAT 

su 

< 

HER 

Flag  indicating  whether  analytic  partlals 
of  current  state  with  respect  to  time  are 
to  be  evaluated, 

1 - do  not  evaluate  partlals 

2 - do  evaluate  partlals. 

NOMT 

su 

NOMLL 

Same  as  NZZ. 

NOPT<72) 

su 

INTEG 

Array  of  program  option  flags. 

RHBR 

u 

ALAN 

• 

8,  used  in  converting  between  time  and 
/3  derivatives. 

CHIND 

s 

HENRY 

Flag  Indicating  whether  a change  in  the 
integration  Interval  has  occurred. 

0 - no  change 

^1  - a change  has  occurred. 

DORHO 

u 

ALAN 

Factor  used  in  converting  between  time 
and  8 second  derivatives. 

<=Rk  • W5 > 

ITRIG 

u 

INTEG 

Flag  returned  from  CONTRL  indicating 
whether  any  remarkable  points  or  condi- 
tions were  encountered. 

X - trajectory  must  be  rectified 

2 - no  special  conditions  encountered 

3 - end  of  trajectory  encountered 

- . - j 
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TRAJL  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

RCIND 

SU 

HENRY 

Rectification  Indicator. 

0 - trajectory  was  not  rectified 

1 - trajectory  was  Just  rectified. 

LERROR 

SX 

Error  condition  Indicator.  Always 

returned  as  .FALSE. 

r 


i 


TRAIT, 
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Name: 


Calling  Arguments: 


RDOT,  RP,  RM,  EMU,  PEPS,  IPS,  QMIN,  QMAX, 
QAVRG 


Referenced  Sub-pros 


None 


Refe  .enced  C nmons: 


None 


Entry  Points: 


None 


Referencing  Sub-programs:  MINMX3 


Discussion:  When  periapse  distance  relative  to  the  target  planet  r is  specified 

TP 

as  an  end  condition,  a transformation  is  made  internally  in  the  program  to  convert 

to  an  equivalent  set  of  end  conditions  that  is  more  stable  in  the  solution  to  the  two 

point  boundary  value  problem.  Rather  than  attempt  to  terminate  the  trajectory  at 

periapse,  a final  specified  distance  of  rT  is  assumed,  and  a specific  set  of 

Cartesian  position  coordinates  are  determined  which  have  a magnitude  of  r and 

which,  when  combined  with  the  velocity  R^,  yield  a periapse  distance,  based  on 

two-body  computations,  which  is  equal  to  the  desired  value  r . Subroutine  XYZ 

TP 

performs  the  computations  for  these  Cartesian  coordinates. 

By  forming  the  cross  product  of  the  velocity  R^,  and  the  angular  momentum 
of  the  two  body  arc  possessing  the  desired  periapse  distance,  one  may,  after  re- 
organizing the  equation,  obtain  the  following  equation  for  R 


R_  = *~r  fffi  • R )R_  + R x h! 
T 2L'T  T T T J 


where  v*T  “ jRT ! and  H is  the  angular  momentum,  vector  R^  x R^.  The 
angular  momentum  vector  is  not  uniquely  specified  at  this  point  because  only 
five  of  the  required  six  conditions  are  given,  namely  the  components  of  the 
velocity  vector  R , the  final  distance  r and  the  periapse  distance  r . 

P 

Therefore,  we  arbitrarily  choose  H such  that  the  direction  R^,  x H will  be 
directed  along  the  vector  R^,  x ic,  where  ic  is  directed  along  the  ecliptic  North 


I-ZAX 


Pole.  This  results  in  a posigrade  approach  trajectory  with  an  ecliptic  inclination 
equal  to  the  declination  of  the  velocity  vector  R^,.  Thus,  the  desired  position 
vector  may  be  written 


where 


rt  = “V  “x'-fTTr  <txV 

VT  VT  >k  x Rt  ‘ 


h=|H|=7r  v -2M  r (L-r  /r  ) 
P P P 


d = RT  • RT  = - V rT  VT  " h * 


XYZ  EXTERNAL  VARIABLES  TABLE 


Ofnf  * S I 0*  ODOM  1 >,  HP  s»  3 >,  f*f  30  »,«MH  30>.0**»GC30>.»C3» 
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BLOCK  DATA 

IMPLICIT  REAL*8  (A-H,0-Z) 

INTEGER  YEAR  , DAY, HOURS 
INTEGER  CAY, HOURS. YEAR 

REAL *8  KSQO, ME I. ME, KM. MOIST, INTV. INlX. IN2X 
COMMON/ AMI /DEC  24 3) , IFST ( 80  I 
COMMON/FNM/RTA, RTP 
COMMON/FRAN/ XMDKM 

COMMON/ HENRY /ARR  AY (8, 3, 121  . CH 1 NO , INT V( 72 ) . I N1 X ( 3 > , 

1 IN2X(3) ,KSQQ( 12  I ,KM( 12),  40 1ST, ME  1(12)* ME (12  I ,3OSRCS, PRVOT , 

2 POT  , PC1N.P.0,  REKM  , RRM, RRE , R REU.  RC  ! NO,  R r.T  I O , SEC , T SCL  .THTS.T^l  , 

3T IMEL.THET, VELRCS 

COMMON/HER/ IPS.NSL.NSL I , IFTRG , I TCT . I POFL < 30 > • I V ARC  100) • 1 T MAX , 

1 NTP , NTPS , NMAX, NJ , JN , IP AT , NCT 1 , NJL 
CCMMON/HIS/PFGC  30,30)  . *X<  3C  > . XVAR  ( 30  ) . YEPS  C 30  ) , XEPSC30)  • 

1CHNSC 100 ) ,CHN< 100) .POFL (30 ). XDARC  7) 

COMMON/ I NPR/ ARCOT A(7,2C).BX(  4,100) 

COMMON/INTEG/ 

10AY. HOURS, YEAR, IOUMMY. ITRIG, IREFNO , IREFNB, I REFNT , 1 N, I 3 , 

21 JK, MONTH, MIN, NO PTC  72)  .NPLAN , NPLAN3 
COMMON/ JERR/VBLC  568) 

COM  MO  N/L AMB/XJLP  , X IN  J,  RBRE  .LOPT 
COMMON/LEON/ XRO  C 6 ) , XROOT C 6 ) , TMPDP , T 
COM  MO  N/M I NSt  C/ I T F 
COMMQN/NPNT/NPR 
C0MM0N/0C6ALL/S A 1(8) 

COMMON/RSCAL/RLP.RPHAT  C 3) , HCRC  3 ) , R OP  ML  C 3 ) 

COMMON/X  MMM/  B(  120)  , toTOPT  , MOPTM 
DATA  BX/400  *0*00/, NPR/ O/.WTOPT /I .00/ 

DATA  TSCL/3600.D  0/,REK  M/6378.1  650  0/.  MD I ST/2  34  5 4. 8700/.  T-CTS/ 1.500/. 
1VELRCS/1 . 0—4/, POSRCS/l .0-4/, RR M/9 .00/ . 

2RRE/I 23. 3D0/.RREU/. 005256904003305100/ 

DATA  MEI/ 

11  . 0D0, 0. 1225 9971 71 0C651D-1  ,0 . 3 3295 1 3C 00D6 . 0 . 81 50 1 4 368871 1 9900, 

20 .107448  704  2 9535000,0. 31780640  8778  84  40  3, 0. 9515  0691  586  6 4 34  02 , 

30.14520335804622802.0.  172871 91 C69574 202,0.1 6374795805739500, 
40.3040436898620580-5,0 .55649 5570783F88D- 1 / 

OATA  KSQO/ 

1 .199094165002.0 . 24498525971390300 .0.51 37364727430550-6. 
20.1257495225694440-11 . 0 . 1 66365434C27 778D-1 2 .0.49049201 38336890-9. 
30.14  6781 8576388  39D— 9 *0  .224  64  32  291 666670-10 , 0.2  71 976562  500  0 000-10. 
40.128  4 356770  833330-1  1.0.51  80  36  2 65  8 *^4  7 20-6  , 0. 8 3943  871  5 277  778D-1  3/ 

OATA  RTA.RTP/36.00.2.00/.SAI/1 .DO .7*0.00/. VOL/2 02* 0.00 • 

1 .76900.2 .0449D8. 0.00. .6 27DC, 5. 305400. -10.0 3 76D0. 7. 107300. 

2-2.0  02100,16*0.00,1 .00,333*0.0  0.2  941  .99500.  .1 1 1 1 1 1 100. . 03  00 . 0 .00 , 

3 .0300.  138726. 52C0, 3776.865600  » 1999.202400/ . I REFNB/1 /. I REFNT/ 6/ 

4 , CHN  C 1 1.CHNC2) ,CHN( 3)/ 

51 .02500. 0. 00.0. 00/.CHNC 4) , CHNC 5) . CHNC  6 ) /O . 0 0, 7 . 00 , O.OD/.XDAR/ 
6.1D-8..1D-8. .10-8. .10-9. .10-9. .10-9, . 1 0-2/ . Tl MEL /I 5000 . 00 / , X JLD/ 
70.00/ .RBRE/ 123.400/ 

DATA  CHN (8) , CHN (9) . CHN ( 1 0 ) , CHN C 1 2 ) ,CHN ( 1 3) .CHNC 14) 

1 /3. 04, 5.04, 4*0. 00/ 

OATA  RD/57. 29577951 30823200/. I N/5/ . I TMAX/50 / ,NTPS/ 1 / . NMAX /5/ , 

1 10/6/ .NOPT/7  2*0/ . ARR AY/ 28 8*0 .00/ , B/l 20*0,00/, I TF/l 0/ 

OAT  A XMDKM/ 1 4 ,959807/ , RLP/ 1 • 02500 / 

OATA  1FST/3*0,1 .3*0  .1 , 3*0  * 1 • 3* 0 • 1 , 3*0 , 1 ,3*0 ,1 ,3*0, 1 .3*0, 1.3 *0.1, 
13*0,1  ,3*C.l ,3*0, 1, 3*0.1 ,3* 0.1, 3*0*1 ,3*0.1 .3*0,1 .3*0, 1,3*3 .1  ,3*0,1/ 
CATA  ARCOT A/140*0,00/ 

END 
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BLOCK  DATA 


Vn.  PROGRAM  EXECUTION 


ASTOP  Program  Machine  Requirements.  When  complied  by  the  IBM 
360/Model  91  computer  at  the  Goddard  Space  Flight  Center  under  their  Fortran  H, 
Level  21  compiler  with  compiler  optimization  level  equal  to  two,  the  ASTOP  pro- 
gram occupies  about  290K  (decimal)  bytes  In  core.  This  Includes  the  core  require- 
ments for  the  following  IBM  library  subroutine  which  must  be  accessible  to  the 
program: 


IHCLASCN 

IHCLATN2 

IHCLSCN 

IHCLSQRT 

IHCFDXPD 

IHCNAMEL 

IHCECOMH 

IHCCOMH2 

iHCFCVTH 


IHCEFNTH 

IHCLEXP 

IHCLLOG 

IHCEFIOS 

IHCERRM 

IHCUOPT 

IHCETRCH 

IHCUATBL 

IHCFIOS2 


The  program  is  written  entirely  In  double  precision  Fortran  IV  using  the 
Fortran  statement  IMPLICIT  REAL  *8  (A-H,  O-Z).  This  results  In  the  assign- 
ment of  an  8-byte  word  location  to  each  real  variable  name  commencing  with  the 
letters  A-H  or  O-Z,  unless  the  name  is  specifically  declared  to  be  of  another 
type.  An  8-byte  word  contains  15  hexadecimal  digits.  As  In  standard  Fortran  IV, 
names  commencing  with  the  letters  I-N  represent  Integer  variables  of  4-byte 
word  length,  unless  specifically  declared  otherwise  through  type  statements. 

The  only  peripheral  equipment  referenced  by  the  ASTOP  program  are  the 
card  reader,  assigned  to  UNIT  5,  and  the  high-speed  printer,  assigned  to  UNIT  6. 
No  magnetic  tapes  are  employed  by  the  program  for  either  Input  or  output.  Of 
course,  temporary  data  storage  assignments  are  made  as  required  on  the  disk  and 
drum  storage  areas.  The  region  size  required  to  execute  the  program  Is  312K 
bytes  If  the  linkage  editor  Is  used  and  336K  bytes  If  the  loader  Is  used. 


PRECEDING  page  blank  NOT  FILUHT 


Deck  Set-up.  The  organization  and  Job  control  cards  of  the  deck  for  a 
batch  submittal  of  an  ASTOP  run  Is  very  stmple.  Basically  all  that  Is  required 
is  the  linkage  editor  or  loader  job  control  cards,  the  program  object  deck,  and  the 
Input  data.  A typical  deck  organization  for  the  IBM  360/91  at  GSFC  Is,  using  the 
linkage  editor: 

//  JOB  CARD 

//  EXEC  LINKGO,  REGION,  GO=C12K 
//LINK,  SYSLIN  DD  * 


* 

object  deck 


ENTRY  MAIN 

/* 

//GO.DATA5  DD  * 


Input  Data 


/* 

If  the  loader  Is  used  (which  Is  recommended),  the  ENTRY  MAIN  card  Is 
removed  and  the  EXEC  LINKGO  card  Is  replaced  with 

//  EXEC  LOADER,  PARM*'EP=MA IN,  SIZE=312K\ REGION.  GO=336K 

The  control  cards  will  change  somewhat  at  different  IMB  360/370  Installs- 


VIII. 


EXAMPLE  CASE 


The  example  case  presented  here  Is  a 600  day  (approximate)  Earth-Juplter 
flyby  mission  launched  from  a 1.025  Earth  radii  circular  parking  orbit  inclined  28.5 
degrees  to  the  equator  at  12  noon  on  November  26,  1980,  using  the  SLV3C/Centaur/ 
TE364-4  launch  vehicle.  A small  solar  electric  propulsion  system  with  a reference 
power  of  1500  watts  and  a jet  exhaust  speed  of  24000  m/sec  Is  assumed.  In  addition, 
a tankage  factor  of  0.03  and  a specific  propulsion  system  mass  of  0.03  kg/watt  are 
specified.  The  constrained  mode  option  is  invoked  such  that  the  solar  array  is  continu- 
ously oriented  normal  to  the  sun-spacecraft  line  with  the  thrust  vector  normal  to  the 
heliocentric  radius  vactor  (l.e. , circumferential  thrust).  The  trajectory  is  divided 
into  three  arcs  - a 12-hour  coasting  arc  following  the  assumed  impulsive  launch 
vehicle  Earth  departure  maneuver,  a long  duration  low  thrust  arc,  and  a final 
coast  arc  to  the  target.  The  required  end  conditions  are  that,  at  13650  hours  Into 
the  mission  (568.75  day6),  the  distance  oi  the  spacecraft  from  Jupiter  must  be  0.2  AU 
and  the  predicted  (two-body)  perljove  distance  at  that  time  is  to  be  0.01  AU  (about 
21.4  Jupiter  radii).  A total  of  five  parameters  are  left  unspecified.  These  include 
the  longitude  of  ascending  node  of  the  launch  parking  orbit,  the  argument  of  perigee 
of  the  escape  hyperbola,  the  speed  at  departure  of  the  launch  parking  orbit,  the  angle 
between  the  thrust  vector  and  its  projection  in  the  ecliptic  plane,  and  the  end  time  of 
the  low  thrust  arc.  The  performance  index  of  the  proHem  is  net  spacecraft  mass. 

The  use  of  an  iterative  trajectory  optimization  program  such  as  ASTOP  is 
facilitated  by  good  first  guesses  of  the  independent  parameters.  To  obtain  such  guesses 
for  this  sample  case,  an  optimum  600  day  Earth-Juplter  flyby  trajectory  was  generated 
using  an  available  heliocentric  two-body  low  thrust  trajectory  optimization  program. 

This  latter  program  has  the  capability  of  generating  optimal  trajectories  subject  to 
the  fixed  thrust  angle  conpfralnt;  therefore,  the  heliocentric  two-body  low  thrust  solution 
may  be  expected  to  possess  most  of  the  salient  features  of  the  n-body  solution.  The  two- 
body  program  solution  yields  directly  the  burn  time,  a (variable)  out-of-plane  thrust 
angle,  and  the  hyperbolic  excess  velocity.  The  burn  time  from  this  solution  was  about 
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5993  hours;  therefore,  the  estimated  input  burn  time  for  the  check  case  was  6,000 
hours.  The  optimal  out-of -plane  thrust  angle  varied  over  the  range  of  -2  degrees 
at  the  Initial  time  to  -39  degrees  at  engine  shutdown.  The  estimated  constant  value 
required  by  ASTOP  was  obtained  simply  by  "eyeballing"  a time-average  value  of  the 
variable  angle  and  slightly  biasing  that  value  to  a smaller  absolute  value  to  account 
for  the  greater  propulsive  force  at  the  smaller  heliocentric  distances.  The  valve  chosen 
for  Input  was  -10  degrees.  The  geocentric  position  and  velocity  at  launch  was  computed 
using  the  hyperbolic  excess  velocity  from  the  heliocentric  two-body  solution  and  the 
specified  launch  parking  orbit  radius  and  Inclination,  assuming  the  departure  point 
coincides  with  perigee  of  the  escape  hyperbola.  To  do  this  requires  the  use  of  the 
vls-vlva  Integral  and  conic  equation  for  a hyperbolic  trajectory  In  conjunction  with 
standard  spherical  trigonometry  equations.  There  will  generally  exist  two  equally 
valid  solutions,  one  with  a northerly  heading  and  one  with  a sourtherly  heading.  One  of 
these  was  arbitrarily  selected  and  Is  represented  by  the  two  vectors  POS  and  VEL 
contained  In  the  Input  data  set  presented  below.  Using  these  Inputs,  a trajectory  was 
Integrated  with  ASTOP  for  the  GOO  day  flight.  This  trajectory  terminated  surprisingly 
close  to  Jupiter,  slightly  past  the  perljove  point.  The  perljove  distance  was  about  0.023 
AU  (the  sphere  of  Influence  radius  Is  0.3  AU)  compared  to  the  desired  value  of  0.01  AU. 
Since  the  problem  was  to  terminate  at  about  0.2  AU  from  Jupiter,  the  flight  time  was 
reduced  from  600  days  by  an  amount  equal  to  the  time  spent  on  this  trajectory  from  a 
distance  of  1.2  AU  on  the  approach  leg  to  the  final  time.  This  time  interval  was  found 
to  be  about  750  hours.  Hence,  the  final  flight  time  selected  is  13650  hours.  Note 
that  this  Is  not  the  time  to  closest  approach. 

The  namelist  data  set  required  to  generate  the  example  case  are  reproduced 
below.  The  data  set  contatns  all  Input  data,  exclusive  of  the  default  data,  that  are 
required  to  run  the  example  case.  The  necessary  control  information  for  the  Inde- 
pendent parameters  Is  contained  In  the  BX  array  and  for  the  dependent  parameters 
In  the  BY  array.  The  weights  for  the  independent  parameters  were  obtained  as 
suggested  In  the  Section  III  using  uncertainties  of  5 degrees  each  for  the  longitude 
of  node  and  argument  of  perigee,  0.01  kro/sec  for  departure  speed,  10  degrees  for 
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out-of-plane  thrust  angle  and  1000  hours  for  burn  time.  Of  the  five  Independent 
parameters,  only  one  - the  out-of-plane  thrust  angle  - uses  the  specified  perturbation 
step  size  to  form  partial  derivatives.  The  othhr  four  employ  analytic  partlals  in 
conjunction  with  the  state  transition  matrix  which  Is  formed  by  finite  differences 
using  the  perturbation  step  sizes  input  through  XDAR.  Not  ? that  the  portion  of  the 
BY  array  pertaining  to  the  final  planetocentrtc  Cartesian  position  coordinate  are 
Initialized  In  anticipation  of  the  automatic  transformation  of  end  conditions  from  the 
perlapse  distance  to  the  final  position  vector.  Th.;  settings  of  BTA,  EPSLON,  and 
NOPT  (63)  - NOPT  (65)  force  the  program  to  operate  In  the  constrained  mode  with 
the  arrays  continually  facing  tho  sun  squarely  and  the  thrusters  pointing  normal  to 
the  sun-spacecraft  line. 


From  the  output,  it  Is  seen  that  the  first  nominal  trajectory  results  in  a 
perljove  distance  of  about  .023  AU  which  Is  very  close  to  the  desired  value  con- 
sidering the  approximate  nature  of  the  method  used  to  obtain  the  firs;  guesses. 

After  five  Iterations,  the  message  "ITERATOR  IS  NOW  IN  THE  OPTIMIZE  MODE" 
Is  printed.  This  signifies  that  a trajectory  satisfying  the  end  conditions  to  the 
specified  tolerances  has  been  found.  At  this  point  the  Iterator  commences  trying  to 
Improve  the  performance  index.  After  28  more  Iterations,  the  converged  case  is 
printed.  The  machine  time  (CPU)  required  to  generate  this  example  case  was  14 
minutes  on  the  IBM  360/91. 


tMXNPtrr 

BX(l#2)-3*l.po,4.n-2,BX<i,3)-3*l.pr,4.n-2,RX(i,s)-2*i.i>o,.ion,i.n4 

bx(1,21)-1.po>i.p-3,3.po,i.p-2#bx(1,24)-i.po,i.po,2.4P2,1.d-6 

BY(l,2)«i.no,5.n2,i.no,Bv(i,ii)-i.no,.?no,i.n-* 

BY(i,l7)»i.nn,i.n-:>,i.r>-K,BV(i,in)-o.nn#.ino,i.n-R 

BY  (1,19) -o.no,.  lnOfi.n-rfBVd^nj-n.  no,.  ino,l.n-« 

ARCPTA(l,l)«12.PO,APCPTA(l,?'«*.P3,l.nO,-l.nl,ARCDTA{l,3)-1.3fi5D4,-l.DO 
POS-  .MS931427BD0,  .3R0fi301«»:>2nn,-.4OBnl53lD0 
VRI,— 5. 5404059*^0, 5.14  RB77fl*iPO, -2. 3272332P0 

XDAn-3*l.r>-<>#3*l.n-in,l.n-3#C!i:-2.4n4  ,P0-1.5P3,BTA-270.D0,FPSLON-90.P0 
ARRAYCM,3)»l.nl,A*PAv(2,l,«)-2.PO 

ALl-1532OR.n5pn,AL2-23R5.125*n0,AJ.3-53.34P0,XJI.P-457O.P0 
JWPT-2,1,1,NOP?(S)-1,NOP?(10)-1,1,1,NOPT(16)-1,NOPT(63)-3,1,2,NARCS«3 
MOPT-2 ,WTOP?-l . P9,NPR»0 
SEND 
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